Tag: outlook

是可以编辑一个通过电子邮件作为Outlook电子邮件正文的Excel工作簿: 我试图find一个简单的方法来传播一个Excel模板的一组人，他们input一些数据，然后通过电子邮件发送更新的模板给我。我调查过的一个select是发送excel模板作为Outlook电子邮件的正文，然后让用户在那里input并将其发送回去。我遇到这篇文章，解释了如何将工作簿作为Outlook电子邮件的主体进行发送。这个过程很好，但是，收件人无法编辑电子邮件电子表格。问题：**不仅可以将工作簿/模板作为Outlook电子邮件的主体发送，还可以使模板可编辑，以便收件人可以将数据input到选定的单元格中。

在Outlook主题行上触发Excelmacros文件触发: 如果我收到只有主题行"Run Dashboard"电子邮件，请提供一个代码，可以打开excelmacros文件。

我可以使用文件中的内容作为名称自动保存在Outlook中的Excel附件吗？: 我每天都会收到电子邮件，这些邮件会告诉我前一天我网站的performance。这些报告是一个通用的名称，我无法从源头上改变这一点。我通过Outlook规则运行下面的脚本，只要收到具有特定条件的邮件，并且报告将以昨天的date保存到文件名中的给定位置： Public Sub Save Reports (itm As Outlook.MailItem) Dim ObjAtt As Outlook.Attachment Dim SaveFolder As String For Each ObjAtt In itm.Attachments If InStr(ObjAtt.DisplayName, ".csv") Then FileName = (ObjAtt.FileName) NewName = "System Performance " & Format(Date – 1, "DD-MM-YYYY") & Right(FileName, 4) SaveFolder = "C:\Users\Me\Documents\" ObjAtt.SaveAsFile SaveFolder & NewName End If Set ObjAtt = […]

当运行调用vba脚本和Excel脚本时，电子邮件停止发送: 我正在写一些代码，这是在Outlook中的一部分，在Excel中的一部分。 Outlook中代码的第一位是使用基于电子邮件地址的规则触发的。然后，它会查看电子邮件并将文件移动到networking驱动器上的文件夹中。 Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliSeconds As Long) Public Sub GetFacebookAttachment(itm As Outlook.MailItem) 'set up outlook objects Dim objAtt As Outlook.Attachment Dim saveFolder As String Dim dateFormat As String Dim xlApp As Object Dim xlWbk As Object 'run attachment script dateFormat = Format(Now, "yyyy-mm-dd H-mm") saveFolder = "S:\VBA\Recieved" For Each […]

GetObject（，“Outlook.Application”）不能使用Outlook打开: 我在Excel文件中使用下面的代码，可以被多个人访问和使用。在继续执行其余代码之前，提取程序将检查Outlook是否处于打开状态。 Dim oOutlook As Object 'Checks to see if Outlook is open On Error Resume Next Set oOutlook = GetObject(, "Outlook.Application") On Error GoTo 0 If oOutlook Is Nothing Then MsgBox "Outlook is not open." Exit Sub End If Set oOutlook = Nothing 该代码似乎除了一个人/电脑以外的每个人都适用。对于这个人/计算机，即使在Outlook打开的情况下， Set oOutlook = GetObject(, "Outlook.Application")代码行似乎并不认为它是开放的。我已经检查了通常的事情：确保VBA引用设置正确，安全设置似乎与其他人一样。任何build议将不胜感激。

如果单元格的值为1，则将电子邮件地址添加到Outlook电子邮件中: 我试图得到一些帮助，发送一封电子邮件给E列中的“1”的任何人。我有一个员工和他们的电话号码范围的工作表。在他们的电话号码之后是他们想要被通知的事件的列表。如果我在他们的名字后面加一个1，我想他们的电子邮件地址添加到电子邮件中。列标题将像A =姓，B =名，C =电话号码，D =电子邮件地址，E =事件1，F =事件2，G =事件3等等。我能够得到电子邮件的代码来从一个设置的范围内拉取所有的电子邮件地址，但我不知道如何添加if命令来查找设置值的事件列之一（E，F，G .. ）。它将需要循环遍历整个范围，然后仅为那些在某个事件列中具有设置值的所选个人提取地址。这是我的代码到目前为止： Dim OutApp As Object Dim OutMail As Object Dim strto As String, strcc As String, strbcc As String Dim strsub As String, strbody As String Dim emailRng As Range, cl As Range Dim sTo As String Set emailRng = […]

无法将Excel / VBA中的PDF保存在一台计算机上: 我最近在这里得到了一个Excel电子表格的帮助，这个Excel电子表格允许用户为客户创build报价单。电子表格使用VBA来允许用户按下一个button，从某些表单生成一个PDF，并将它们附加到一个新的Outlook电子邮件。不幸的是，这不能在用户的电脑上工作。这个问题似乎是与生成的PDF。最初按下button时，什么都没有发生。我怀疑这是与微软的插件保存为PDF格式，所以我确定它是安装，这是。在'注释'从代码来的错误信息从Visual Basic中得到真正的错误信息之后，我发现它是这样的： run-time error '-2147467261 (80004003)': Document not saved. 点击“debugging”时，突出显示： FileName = Create_PDF_Sheet_Level_Names(NamedRange:="addtopdf1", _ FixedFilePathName:=ThisWorkbook.Path & "\" & "Quotation – " & Range("G18") & ".pdf", _ OverwriteIfFileExist:=True, _ OpenPDFAfterPublish:=False) 其中涉及到： Function Create_PDF_Sheet_Level_Names(NamedRange As String, FixedFilePathName As String, _ OverwriteIfFileExist As Boolean, OpenPDFAfterPublish As Boolean) As String 'This function will […]

Outlook .items.restrict使用两个filter: 我正在使用一个脚本来打开电子邮件并下载附件。现在，我可以select在最近的电子邮件中下载最新的附件： Sub CTEmailAttDownload() Const olFolderInbox As Integer = 6 '~~> Path for the attachment Const AttachmentPath As String = "C:\TEMP\TestExcel" Dim oOlAp As Object Dim oOlns As Object Dim oOlInb As Object Dim oOlItm As Object Dim oOlAtch As Object Dim oOlResults As Object Dim x As Long Dim NewFileName As String NewFileName = […]

发送带有Excel工作表范围的Outlook电子邮件，当计算机被locking时使用macros: 我正在运行一个仪表板，每周刷新一次，使用ODBC连接。我写了一个在auto_open上运行的macros。该文件正在由任务计划程序打开。系统：Windows 7 SP1，Outlook 2016，Excel 2016 问题：当我按照“运行”的设置安排任务时，无论用户是否login，excel文件都会打开并刷新，但不会通过Outlook发送邮件，也不会显示在我的发件箱中。虽然刷新确实发生了。这是用户没有login的时候。当用户login时，任务计划工作正常我已经试过这个Excel VBA – 当计算机被locking时，不发送电子邮件，它不适合我。我用来发送邮件的function是： Dim oApp As Object, OutApp As Object, OutMail As Object Dim rng As Range Dim strbody As String, strtail As String strbody = "Hi team," & "<br>" & _ "<a href=""https://example.com"">Here</a> is the link to […]

复制范围作为图像并粘贴到Outlook（结果小/模糊）: 我试图复制一系列的单元格作为图片，把这个图片放在一个电子邮件，然后发送一个Excelmacros的电子邮件。我能够做到这一切，但是图像比原来的图像更小/更模糊。我已经尝试了各种复制/粘贴方法，但结果是一样的。当我手动复制图片复制为图片（如屏幕所示）没有macros，然后粘贴到Outlook使用CTRL + V，图像看起来不错。任何想法为什么发生这种情况？代码如下： Sub SendMail() Dim aOutlook As Object Dim aEmail As Object Dim rngeAddresses As Range, rngeCell As Range, strRecipients As String Dim rngeData As Range Set aOutlook = CreateObject("Outlook.Application") Set aEmail = aOutlook.CreateItem(0) Set rngeData = Worksheets("Promo Sync").Range("A5:Y86") 'Copy Range rngeData.CopyPicture Appearance:=xlScreen, Format:=xlPicture Dim wordDoc As Word.Document Set […]