Question

每天我都在处理日常报道。这非常耗时。基本上我需要发送电子邮件，其中包含昨天销售与上周和月份销售的简要比较。这工作得很好。完成此操作后，邮件将粘贴到新工作表，然后我必须将其复制并粘贴到Outlook中的新电子邮件中。

是否有可能创建将在Outlook中打开新邮件的宏？所以我将能够插入我的文本。我能够编写将直接从Excel发送的宏，但这不是我真正想要的，因为报告的某些部分必须通过手动查看数字来完成。

非常感谢提前！

Answer 1

将ActiveWorbook添加为附件：

将其保存到特定位置
Use Attachments.Add从1

码

Sub CustomMailMessage()
Dim strFile As String
Dim OutApp As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Recipient
Dim Recipients As Recipients

  Set OutApp = CreateObject("Outlook.Application")
  Set objOutlookMsg = OutApp.CreateItem(olMailItem)

  strFile = "C:\temp\myfile.xlsx"
  ActiveWorkbook.SaveAs strFile

  Set Recipients = objOutlookMsg.Recipients
  Set objOutlookRecip = Recipients.Add("alias@domain.com")
  objOutlookRecip.Type = 1

  With objOutlookMsg
    .SentOnBehalfOfName = "sales@domain.com"
    .Subject = "Testing this macro"
    .HTMLBody = "Testing this macro" & vbCrLf & vbCrLf
    'Resolve each Recipient's name.
    For Each objOutlookRecip In objOutlookMsg.Recipients
      objOutlookRecip.Resolve
    Next
    .Attachments.Add strFile
    .display
  End With

  'objOutlookMsg.Send
  Set OutApp = Nothing
End Sub

Answer 2

我找到了这个，它工作得很好!!!!

也许还有一件事 - 是否有可能将打开的文件作为附件附加？

Sub CustomMailMessage()
Dim OutApp As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Recipient
Dim Recipients As Recipients

  Set OutApp = CreateObject("Outlook.Application")
  Set objOutlookMsg = OutApp.CreateItem(olMailItem)

  Set Recipients = objOutlookMsg.Recipients
  Set objOutlookRecip = Recipients.Add("alias@domain.com")
  objOutlookRecip.Type = 1

  objOutlookMsg.SentOnBehalfOfName = "sales@domain.com"
  objOutlookMsg.Subject = "Testing this macro"
  objOutlookMsg.HTMLBody = "Testing this macro" & vbCrLf & vbCrLf
  'Resolve each Recipient's name.
  For Each objOutlookRecip In objOutlookMsg.Recipients
    objOutlookRecip.Resolve
  Next
  'objOutlookMsg.Send
  objOutlookMsg.Display

  Set OutApp = Nothing  
End Sub

Answer 3

我现在无法测试，但它会是这样的：

set o = createObject("Outlook.Application")
set m = o.CreateItem(olMailItem) ' replace it with 0 if you get error here
o.show ' or .Display - not sure

您可以在显示之前设置o.To，o.Subject等。对不起，它没有经过测试，但我的家用电脑上没有Outlook，我只在工作时使用它。如果我没记错的话，明天我会检查一下。

通过Excel VBA在Outlook中打开新邮件

3 个答案: