代码之家 › 专栏 › 技术社区 › Casey M

发送前保存当前附件的副本

email-attachments outlook vba excel

Casey M · 技术社区 · 7 年前

在作为备份发送之前,如何保存刚刚附加的附件副本。

任何帮助都会很好!非常感谢。

    Dim outlookOBJ As Object
    Dim MItem As Object

   Set outlookOBJ = CreateObject("Outlook.Application")
   Set MItem = outlookOBJ.CreateItem(olMailItem)
   With MItem
   .To = "email1@gmail.com"
  '.cc = "email2@gmail.com"
   .Subject = " Test Subject"
   .body = " test text in body of email" & Me.EvalID_T1.Value
   .Attachments.Add (ActiveWorkbook.Worksheets("BrowseFile").Cells(4,3).Value)
   'want to add some kind of save current attachment feature here right before I send

    .send

1 回复 | 直到 4 年前

0m3r 7 年前

简单使用 For Each â¦ In â¦ Next Loop 保存当前 MItem.Attachments

With MItem
    .To = "email1@gmail.com"
    '.cc = "email2@gmail.com"
    .Subject = " Test Subject"
    .Body = " test text in body of email" & Me.EvalID_T1.value
    .Attachments.Add (ActiveWorkbook.Worksheets("BrowseFile").Cells(4, 3).value)

     Dim Atmt As Object
     For Each Atmt In MItem.Attachments
         Debug.Print Atmt.DisplayName
         Atmt.SaveAsFile "C:\Temp\" & Atmt.DisplayName
     Next

    .Display
End With

推荐文章

nimeshkiranverma · 如何使用创建文件的文档的S3 URL将文档(pdf/图像)附加到Django emailer?

7 年前

Tekraj Shrestha · 在laravel邮件中发送附件

7 年前

lawrence999 · AWS-SES发送带有附件的邮件[应用程序/pdf]节点[副本]

7 年前

Casey M · 发送前保存当前附件的副本

7 年前

RobertJRu · 如何以编程方式单击。电子邮件正文中的zip链接

7 年前

LostCause · 的MailKit电子邮件附件。NET Core 2.0

7 年前

Ashish · 如何在x-cart中的邮件中附加pdf

7 年前

Perry Hoekstra · 将vCard附加到电子邮件意图

7 年前

neophlegm · Outlook发送邮件时出现“不安全附件”提示

7 年前

Denis · Android Studio,Genymotion-发送带有txt文件附件的电子邮件:显示在gmail中,但不发送

9 年前