gpt4 book ai didi

vba - 使用 Excel VBA 发送带有附件的 Outlook 电子邮件

转载 作者:行者123 更新时间:2023-12-03 00:46:58 24 4
gpt4 key购买 nike

我正在尝试使用 Excel VBA 发送带有附件的电子邮件。

如果我不包含附件代码行,我的代码将发送电子邮件。

当我编写该行来发送附件时,它显示错误。

Set MyApp = CreateObject("Outlook.Application")
Set MyItem = MyApp.CreateItem(0)
With MyItem
.To = "saurabh.ad.sharma@accenture.com"
.Subject = "Subject"
.ReadReceiptRequested = False
.HTMLBody = "resport"
.Attachment = "C:\Users\saurabh.ad.sharma\Desktop\rrr.xlsx"
End With
MyItem.Send

最佳答案

发送带有附件的邮件的简单示例试试这个

Dim objOutl
Set objOutl = CreateObject("Outlook.Application")
Set objMailItem = objOutl.CreateItem(olMailItem)
'comment the next line if you do not want to see the outlook window
objMailItem.Display
strEmailAddr = "me.me@you.com"
objMailItem.Recipients.Add strEmailAddr
objMailItem.Body = "Hi"
objMailItem.Attachments.Add "file.xml"
objMailItem.Send
Set objMailItem = nothing
Set objOutl = nothing

关于vba - 使用 Excel VBA 发送带有附件的 Outlook 电子邮件,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/47349261/

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com