Tag: 前景

努力使用Excel VBA将文件附加到Outlook电子邮件: 我正在尝试一些相当简单的事情，我不知道我正在做的与其他代码是如何做的不同。我有一个非常简单的使用Outlook从Excel发送电子邮件： Sub SendEmail() Dim OutApp As Object Dim OutMail As Object Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) With Application .EnableEvents = False .ScreenUpdating = False End With With OutMail .To = Range("ETF_CAB_Recon_Initial_Email_To") .CC = Range("ETF_CAB_Recon_Initial_Email_CC") .BCC = "" .Subject = Range("ETF_CAB_Recon_Initial_Email_Subject") .HTMLBody = Range("ETF_CAB_Recon_Initial_Email_Body") .Attachments.Add Range("ETF_CAB_Recon_Initial_Email_Attachment") .Display End With With Application .EnableEvents […]

使用VBA可以分配给“Outlook”的所有属性是什么？: 在VBA中，我们可以创build一个对象来运行和操作其他应用程序。我正尝试在Excel中使用代码在Outlook中执行一些作业。例如 – With OutMail .Subject = " Event 1 " .Importance = True .Start = "8:00 AM" & Format(Date + 5) .End = "8:00 AM" & Format(Date + 5) .Body = "This is a testing event 1 msg " & Format(Date) .Display .Save End With 在这里，我已经使用了一些我知道的属性.subject，.start，.save，.display等我有兴趣知道我可以在Outlook中使用“使用Outlook”命令设置的所有属性。

使用excel跟踪Outlook中的电子邮件: 如何使用excel跟踪Outlook中的共享收件箱中的电子邮件？我们有大量的电子邮件进来，我们需要跟踪回复，以确保电子邮件不会丢失。是否有办法从高级查找结果到Excel表单？

将填充的列复制到同一行中另一列的空字段中: 我有一个导出的Outlook联系人列表，其中充满了大约1800个电子邮件。一列（Col A）中的电子邮件字段仅填充了大约一半的联系人，另一列（列B）用于“显示名称”包含其他联系人的电子邮件地址。但是，“显示名称”列除了电子邮件地址外还包含其他数据，所以我想避免覆盖现有的电子邮件A. 所以，我想find一种方法来填补Col A的空白字段和Col B的数据。任何帮助将不胜感激！

如何在Excel VBA电子邮件中添加签名？: 当用户单击一行中的单元格时，我使用此VBA代码发送电子邮件。我想在电子邮件正文中添加一个带有图像的签名。我怎样才能修改我的代码把这个？ Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = Range("BL1").Column Then If Target.Row > 7 And Target.Value = "Take Action" Then Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) strbody = "" & "Dear Sirs," & " " & vbNewLine & vbNewLine & _ "FAO: " & "" & Range("B" & ActiveCell.Row) […]

带有Excel VBA的Outlook 2010 GAL: 我有以下代码从Excel中获取Outlook的联系人： Public Sub GetGAL() Dim olApp As Outlook.Application Dim olNs As Outlook.Namespace Dim olFldr As Outlook.Items Dim olContact As Outlook.ContactItem Set olApp = CreateObject("Outlook.Application.14") Set olNs = olApp.GetNamespace("MAPI") Set olFldr = olNs.GetDefaultFolder(olFolderContacts).Items For Each olContact In olFldr Debug.Print olContact.FullName Next olContact End End Sub 在这一行上说没有types不匹配： For Each olContact In olFldr 有人知道为什么吗？另外，我如何访问GAL，而不仅仅是我自己的联系人？谢谢你的帮助。编辑：这是我的新代码访问addressEntry和ExchangeUser，但是，不是国家领域呢： Option […]

使用vba通过outlook以html格式发送图表: 我正在使用vba将HTML格式的电子邮件中的图表发送到Outlook。问题是只有我能够看到图表，没有收件人可以查看它。 Fname = Environ $（“temp”）＆“\ Chart1.jpg” ActiveWorkbook.Worksheets("eod summary").ChartObjects("Chart 1").Chart.Export _ Filename:=Fname, FilterName:="JPG" With OutMail .To = "first.lastname@aol.com" .CC = "" .Subject = h .Attachments.Add Fname s = "<img src=" & Fname & ">" s = "<HTML><BODY><CENTER>" & s & "</CENTER><HTML><BODY>" .HTMLBody = RangetoHTML(rng) & s & RangetoHTML(rng2) .Display .Send End With 我将文件保存到我的临时文件夹。有一个共享服务器，收件人使用，但不是每个人都把它作为相同的驱动器（Z驱动器的一些G驱动器的其他人）。因此，当我试图从文件path中检索图像时，我没有成功。 […]

使用VBA将Outlook表格转换为Excel: 我试图导出Outlook的Outlook消息到Excel。所有邮件都在同一个邮箱中，具有相同的主题，可以包含多个具有不同行数的表。我设法得到第一封邮件，但它不会遍历整个邮箱。提前致谢！ Option Explicit Sub impToExcel() ' point to the desired email Const strMail As String = "jonfo@company.com" Dim oApp As Outlook.Application Dim Nsp As Namespace Dim Fldr As MAPIFolder Dim oMail As Outlook.MailItem Dim Var As Variant Set oApp = New Outlook.Application Set Nsp = oApp.GetNamespace("MAPI") Set Fldr = Nsp.GetDefaultFolder(olFolderInbox).Folders("Svar") Set oMail […]

从Outlookmacros运行Excelmacros？: 问候所有，我正在从Outlook运行Excelmacros的function。我的情况是运行excelmacros，excel文件打开，outlook也打开我的问题是。当我运行这个代码。 Outlook将打开另一个相同的Excel文件，并要求replace保存。我想要的是，当我从前景调用macros。它会直接触发macros从开放的Excel。这是我的代码 Sub macro() Dim ExApp As Excel.Application Dim ExWbk As Workbook Set ExApp = New Excel.Application Set ExApp = ExApp.Workbooks.Open("C:\Users\Desktop\Production v2.7.1.xlsm") ExApp.Visible = True ExApp.Application.Run "'Production'!Main_function_Auto" ExApp.Close SaveChanges:=True End Sub