Tag: outlook

发送Outlook电子邮件（包括variables和字体更改）？

我有VBA代码，用于发送带有variables的Outlook电子邮件，或者发送带有字体更改（粗体，字体等）的Outlook电子邮件，但不能同时包含variables和字体更改。 这将发出“你好”：variables=“有”OutMail.Body =“嗨”variables 这将发出“嗨那里”你好大胆，没有大胆的（忽略左胡萝卜后的空间）：Outmail.HTMLBody =“<b>嗨</ b>那里” 我想用一个variables发送出去，但是没有成功。 我先试了一下，但发出“嗨”的粗体，但忽略了variables。 variables=“那里”Outmail.HTMLBody =“<b>嗨</ b>”＆variables 这里是完整的代码： Dim OutApp As Object, OutMail As Object, plan_day As Date, comp_tsk As String 'define EmailAddress, CCAddress, EmailSubject plan_day = "06/02/2015" comp_tsk = "there" EmailBody = "< b>Today is " & plan_day & ".< /b> Hello " & comp_tsk Set OutMail = OutApp.CreateItem(0) With […]

excel vba从前台获取所有日历

我尝试使用VBA从Excel文件中读取当前Outlook会话中的所有可用非共享日历。 为此，我已经用下面的语句成功加载了默认日历： Set Calendar = outApp.GetNamespace("Mapi").GetDefaultFolder(9) 但只要我尝试加载其他可用的日历，我遇到了一些问题。 我似乎通过在vba编辑器的本地variables视图中手动浏览Outlook会话对象来查找可用的日历。 到达那里的path（通过所有会话，文件夹和项目层次结构）对于每个用户来说都是不同的。 所以我现在最好的解决scheme是抓取整个对象，直到find有效的日历。 但老实说，我希望有一个更好的解决scheme。 我的目标是确定当前Outlook会话中的所有可用日历，并为用户select在哪个日历中添加新约会。 只是为了logging，我添加以下代码的约会： Public Sub AddOutlooktermin(subject As String, _ startDateTime As Date, _ endDateTime As Date, _ body As String, _ location As String, _ allDayEvent As Boolean, _ reminderMinutes As Integer, _ setReminder As Boolean, _ busyStatus As Integer _ ) Dim outApp As […]

VBA：在非默认Outlook收件箱中search电子邮件？

我正在使用下面的VBA代码，检查任何具有特定主题标题的电子邮件。 问题是它检查我的默认Outlook收件箱文件夹，当我需要它来检查我的其他电子邮件帐户的收件箱。 有人可以告诉我如何做到这一点？ Sub Macro1() Set olApp = CreateObject("Outlook.Application") Dim olNs As Outlook.Namespace Dim Fldr As Outlook.MAPIFolder Dim myItem As Outlook.MailItem Dim myAttachment As Outlook.Attachment Dim I As Long Dim olMail As Variant Set olApp = New Outlook.Application Set olNs = olApp.GetNamespace("MAPI") Set Fldr = olNs.GetDefaultFolder(olFolderInbox) Set myTasks = Fldr.Items Set olMail = myTasks.Find("[Subject] = […]

VBA Excel：将电子表格的提取插入到Outlook电子邮件中

我想能够在Excel中运行一个macros，复制我的Excel电子表格的特定区域，打开一个新的电子邮件，并粘贴区域。到目前为止，我有以下代码： Sub Macro2() ' 'Macro2 Macro Dim objOutlook As Object Dim objMail As Object Dim TempFilePath As String Set objOutlook = CreateObject("Outlook.Application") Set objMail = objOutlook.CreateItem(0) Dim rng As Range 'Set rng = Selection.SpecialCells(xlCellTypeVisible) Set rng = ActiveSheet.Range("A4:E200").Rows.SpecialCells(xlCellTypeVisible) If rng Is Nothing Then MsgBox "The selection is not a range or the sheet is protected" […]

对象不支持此属性或方法ReceivedTime

我是新的VB代码，我试图执行下面的代码。 但是我得到一个错误消息对象不支持这个属性或方法在这一行 If VBA.DateValue(VBA.Now) – VBA.DateValue(Folder.Items.Item(iRow).ReceivedTime) <= 60 Then 我认为我的代码没有阅读ReceivedTime 。 我正在使用Microsoft Excel 2010。我该如何解决？ Option Explicit Sub Download_Outlook_Mail_To_Excel() 'Add Tools->References->"Microsoft Outlook nn.n Object Library" 'nn.n varies as per our Outlook Installation Dim Folder As Outlook.MAPIFolder Dim sFolders As Outlook.MAPIFolder Dim iRow As Integer, oRow As Integer Dim MailBoxName As String, Pst_Folder_Name As String 'Mailbox or […]

筛选基于主题的Outlook电子邮件，然后下载附件

我正在尝试执行以下操作： search未读的电子邮件 打开具有特定关键字的那些 从电子邮件下载附件（如果我也可以通过附件进行筛选，那将是非常好的） 将电子邮件标为已读。 这是我正在与之合作。 Sub DownloadAttachmentFirstUnreadEmail() Dim oOlAp As Object, oOlns As Object, oOlInb As Object Dim oOlItm As Object, oOlAtch As Object Dim strFilter As String '~~> New File Name for the attachment Dim NewFileName As String NewFileName = AttachmentPath & Format(Date, "DD-MM-YYYY") & "-" '~~> Get Outlook instance Set oOlAp = […]

在Excel VBA中禁用Outlook全部回复

我有一个Excel VBAmacros，发送电子邮件给多个人。 我不想隐藏已发送给谁，我只是想禁用对Outlook的全部答复function。 我已经尝试了下面，从outlookVBA，它没有效果 ActiveInspector.CurrentItem.Actions("Reply to All").Enabled = False ActiveInspector.CurrentItem.Actions("Forward").Enabled = False 这是在代码中。 Set OutlMail = OutlApp.CreateItem(0) On Error Resume Next With OutlMail .To = sendto .Subject = "Update for: " & Date Set rng = Workbooks("UpdateV2.xlsm").Sheets("EmailP").Range("A1:S75") Call SortAbs Workbooks("UpdateV2.xlsm").Sheets("EmailP").Calculate .ActiveInspector.CurrentItem.Actions("Reply to All").Enabled = False .ActiveInspector.CurrentItem.Actions("Forward").Enabled = False .htmlbody = "<body style=font-size:11pt;font-family:Arial bgcolor='#FBEDD4'>" & _ […]

使用Excel值保存电子邮件附件作为文件名的input

我有点新的编码，但在这里:) 我收到的电子邮件附件需要使用Excel工作表中的信息以特定的名称格式进行保存。 包含我需要的信息的行可以通过电子邮件的主题行进行标识。 我想编写一些代码来为Outlook中选定的电子邮件执行以下操作： 使用电子邮件的主题行查找包含所需信息的行 返回该行中几个字段的值 使用这些值和主题行来创build一个文件名 将文件保存在指定的目录中 我已经设法find并重写一些复制的代码来保存仅使用主题行作为文件名的附件。 我努力从Excel工作表获取信息追加到文件名。 这是我的代码到目前为止： Sub SaveAttachments() Dim objOL As Outlook.Application Dim objMsg As Outlook.MailItem Dim objAttachments As Outlook.Attachments Dim objSelection As Outlook.Selection Dim i As Long Dim lngCount As Long Dim strFile As String Dim strFolderpath As String Dim strFileName As String Dim objSubject As String Dim strDeletedFiles […]

embedded的图像从Excel VBA的HTML电子邮件

我试图build立一个自动的电子邮件，同时使用HTML代码的文本和图像（来自Excel的图表）。 这是我第一次写这样的代码，所以我抬头，合并了我在网上find的几个代码。 这是我迄今为止的形象： FirstChartPath = ThisWorkbook.Path & "\Current Credit Usage.png" ChartName = "Current Credit Usage.png" 'add the image in hidden manner, position at 0 will make it hidden .Attachments.Add FirstChartPath, olByValue, 0 'Now add it to the Html body using image name 'change the src property to 'cid:your image filename' 'it will be changed to […]

提示文本框，将保存Outlook的格式

所以我通过VBA自动化电子邮件。 我已经将电子邮件正文粘贴到Excel表单中的一个单元格中，然后在发送电子邮件之前将其拉出使用。 问题是：它看起来很菜鸟（尤其是当我不得不把它拖下来）。 有没有一个快速的方式来调用一个input框，记住电子邮件的格式？ 我试图调用inputBox，但它不保存格式.. 仅供参考，我的代码运行良好