Question

嗨，我真的需要一些帮助。我正在尝试将MS Excel中的活动工作表导出为PDF，并将其保存到驱动器中，并通过Outlook将其通过电子邮件发送给多个公司的不同联系人。它似乎可以与所有没有Windows 10的人一起使用。我是唯一拥有Windows 10 PC的人。 ActiveSheet是我遇到错误的地方。以下是我使用过的代码，但始终收到错误消息1004

Name = Specific location
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Name, _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas 
    _:=False, OpenAfterPublish:=False

ActiveWorkbook.Save
    Set Mail_Object = CreateObject("Outlook.Application")
    With Mail_Object.CreateItem(o)
    .Subject = 
    .To = 
    .CC =
    .Body = 
    .Attachments.Add Name 
    .send
End With
    MsgBox "E-mail successfully sent", 64
    Application.DisplayAlerts = False
    Set Mail_Object = Nothing
End Sub

Answer 1

您正在定义邮件项目的部分不好，要做这样的事情，自己完成代码：

Sub SendAttachment()
    Set olObj = CreateObject("Outlook.Application")
    With olObj.CreateItem(olMailItem)
        .Subject = "mySubject"
        .To = "test@test.com"
        .CC = "test@test.com"
        .Body = "test"
        .Attachments.Add Name
        .send
    End With
End Sub

PS：始终建议使用显式定义（例如Dim sSubject作为字符串）

VBA宏-通过Outlook发送PDF（Windows10）错误1004

1 个答案: