Tag: outlook
从Outlook 2010 w / VBA保存.XLSX附件
我们使用Outlook 2010并接收带有Excel附件的电子邮件。 我们手动将附件保存在我们在networking驱动器上的分区文件夹中创build的子文件夹中。 我很好奇的是，如果有可能的话 使用代码检查传入的电子邮件，看他们是否有附件， 然后检查附件，看它是否是.XLSX， 如果是这样，打开附件，检查特定单元格的值， 然后将帐户名称和帐户号码存储为string和variables 然后使用它们在相应的Windows目录中创build子文件夹。 **我忘了发布我迄今为止所做的。 我相信布雷特回答了我的??，但也许别人可以使用它的片段。 Private Sub cmdConnectToOutlook_Click() Dim appOutlook As Outlook.Application Dim ns As Outlook.Namespace Dim inbox As Outlook.MAPIFolder Dim item As Object Dim atmt As Outlook.Attachment Dim filename As String Dim i As Integer Set appOutlook = GetObject(, "Outlook.Application") Set ns = appOutlook.GetNamespace("MAPI") Set inbox = ns.GetDefaultFolder(olFolderInbox) […]
从全球通讯录中获取电话号码
在Outlook中使用VBA我试图从全球通讯录中获得一个电话号码。 不幸的是，最常用的方法 – 遍历整本书 – 对于我的目的来说是不可行的，因为GAL中的地址数量太大了。 因此，有必要find具有特定查询的用户。 我看着使用CDO会议，以及ADODB方法，但都没有按预期工作。 任何人都可以提供一个代码片段，使用电子邮件地址作为searchstring可以达到上述目的吗？ 谢谢
如何将Excel工作表中的文本和图表复制到Outlook正文中？
我试图复制文本（恒定范围的单元格）和Excel表格中的图表到Outlook主体，但是到目前为止，我成功地只复制图表，而不是文本。 我想知道从excel表格复制文本（在选定的范围内）和图表的最佳方式到Outlook消息。 下面是我现在使用的代码。 此代码确实粘贴文本，但图表重叠在文本上（当图表粘贴到电子邮件正文中时）。 我想如何格式化Outlook电子邮件并粘贴文本和图表不重叠。 Sub email_Charts(sFileName, Subject1) Dim r As Integer Dim o As Outlook.Application Dim m As Outlook.MailItem Dim wEditor As Word.Document Set o = New Outlook.Application Dim olTo As String Windows("Daily_Status_Macro_Ver3.0.xlsm").Activate Sheets("Main").Select olTo = Worksheets("Main").Cells(3, 3).Value Windows(sFileName).Activate msg = "<HTML><font face = Calibri =2>" msg = msg & "Hi All, <br><br>" msg […]
约会对象已发送
Backgorund： 我需要发送一个预约，一切正常，但是，如果邀请被发送，我希望得到Outlook.AppointmentItem的“已发送”属性 – 单击显示的窗口或服务器问题后，用户可以取消。 解决scheme尝试 当我读到约会有一个被保存的财产时，这当然不会告诉我它是否被发送或不像MailItem中的那个。 我不认为提供代码会有所帮助，但在这里是： 码： 昏暗的olApp作为Outlook.Application Dim olAgenda As Outlook.AppointmentItem 设置olApp =新的Outlook.Application 设置olAgenda = olApp.CreateItem（1） 随着olAgenda .Subject =“testing” .Recipients.Add =“sample@domain.com” 。显示 在错误恢复下一步 调用.ItemProperties.Item（“Saved”）'这里是我需要赶上那种“被发送？ variables。 如果Err.Number = 0那么'99。 如果错误 MsgBox“项目发送” 其他'99。 如果错误 MsgBox“项目不发送” 结束如果'99。 如果错误 结束 PS：请注意，我不喜欢后期绑定，必须添加outlook库的引用。 题： 如果AppointmentItem被发送，我怎么能抓到？
使用macros从Microsoft Outlook Messsage中提取所有IP地址
我一直在研究如何从Outlook邮件中提取所有 IP地址并复制到Excel电子表格。 我有一个工作示例，从OL消息中提取1个IP地址以复制到Excel单元。 目前它每个单元复制1个八位字节，但理想情况下我需要1个单元中的IP地址。 另外我需要macros来检查消息的全部内容并提取所有的IP地址。 消息中可能有1到100个IP地址。 样本数据 Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis 10.1.1.10 aute irure dolor in reprehenderit in voluptate velit esse cillum […]
将ActiveCell.Address读入Outlook
如何将Excel中活动单元格的地址存储到Outlook中的variables中？ Outlook正在操作一个工作簿，我想在操作之后将活动单元恢复到原来的位置。 Set xl = GetObject(, "Excel.Application") Set xlB = xl.Workbooks("DWG_CHECKLIST") reactivateMeSheet = xlB.ActiveSheet.Name reactivateMeCell = xlB.Sheets(reactivateMeSheet).ActiveCell.Address 我已经引用了Excel 15对象库。
Excel VBA代码抛出运行时错误429使用任务计划程序发送Outlook电子邮件
我正在使用Excel VBAmacros来发送自动电子邮件（Outlook 2013），它在每天的特定时间与Windows任务计划程序（我正在使用batch file来执行此操作）一起运行。 当我运行我的macros没有任务计划程序它通常执行（电子邮件发送），但是当我使用任务计划程序，因为我收到“运行时错误429”，只有当VBAmacros尝试创buildOutlook对象时发生： Dim OutApp As Object Dim OutMail As Object Set OutApp = CreateObject("Outlook.Application") 'The error happens here Set OutMail = OutApp.CreateItem(0) On Error Resume Next With OutMail .to = "email@email.com" .CC = "" .BCC = "" .Subject = "subj" .Body = "body" .Attachments.Add ActiveWorkbook.FullName .Send End With On Error GoTo 0 […]
从运行中获取函数的返回值
我从Outlookmacros运行Excelmacros，我需要得到Excelmacros的返回。 我的Outlookmacros的代码如下所示： Dim excelApp As Object Set excelApp = CreateObject("Excel.Application") excelApp.Workbooks.Open "C:\Users\meej\Documents\Book1.xlsm" If excelApp.Run("ThisWorkbook.Foo", true) Then Debug.Print "TRUE" Else Debug.Print "FALSE" End If excelApp.Quit Set excelApp = Nothing 我的Excelmacros看起来像这样： Public Function Foo(ByVal result as Boolean) as Boolean Foo = result MsgBox Foo End Function 我的MsgBoxpopup并显示true，但在Outlook中，我总是打印“FALSE”。 我滥用Run吗？
将Excel范围发送到电子邮件正文与自动调整
我目前正在使用Ron de Bruin的RangetoHTML函数在电子邮件中发送几个表格。 我希望这些表格可以自动适应Outlook的屏幕。 目前，我必须点击每个表格，然后进入layout-> autofit来在每个表格上进行屏幕显示。 我想知道这个任务是否可以以某种方式折叠到macros中。 编辑：这是我在解决scheme的第一个猜测： objMail.HTMLBody = RangetoHTML(Range("A1:G14")) & _ RangetoHTML(Range(Range("vmRange").Value)) & _ RangetoHTML(Range(Range("hpRange").Value)) & _ RangetoHTML(Range(Range("esrRange").Value)) For Each tbl In objMail.body.tables tbl.Columns.AutoFit 'Note: This doesn't actually work Next tbl
由Outlookmacros创build的新Excel工作簿不保存在目录中
我有一个Outlookmacros，它将用户Tasklist导出到存储在networking驱动器上的Excel电子表格中。 我试图检查目录中是否已经存在工作簿（ 如果在此处采用语句 ）。 如果没有，那么用一张名为“Sheet 1”的工作表创build一个新的工作簿，如果已经有一个正确的用户名，那么将其打开（ 从这里添加语句 ）： 由于这样，我有propery修正了我有的命名错误，但现在新创build的小册子没有被保存在目录文件夹。 没有错误被抛出，并在macros结束msg框被正确显示，所以我不知道为什么该文件不显示在文件资源pipe理器中。 这是我的整个计划： Sub Task_Grab_V2() Dim sKillExcel As String Dim strReport As String Dim olnameSpace As Outlook.NameSpace Dim taskFolder As Outlook.MAPIFolder Dim tasks As Outlook.Items Dim tsk As Outlook.TaskItem Dim objExcel As New Excel.Application Dim exWb As Excel.Workbook Dim sht As Excel.Worksheet Dim NAME_s As String Dim […]
