无法发送Excel单元格中名为的文件附件

无法发送Excel单元格中名为的文件附件,excel,vba,email,outlook,Excel,Vba,Email,Outlook,我对VBA编程有点陌生,所以请耐心听我说。我正试图用标准的电子邮件,但个性化的审计备忘录,将向公司部门主管发送电子邮件的工作自动化。发送给某个人的每封电子邮件也应包含相应的附件 我有一个电子表格,有三列:姓名、电子邮件地址和我想分别附加在a、B和C中的文件的位置。我已经在下面尽我所能地表达了这一点 A………..B………..C 姓名…………电子邮件…………附件 约翰·史密斯。。。。。a@b.com.....Q:\PLIU\File1 简·史密斯。。。。。c@d.com.....Q:\PLIU\Fi

我对VBA编程有点陌生,所以请耐心听我说。我正试图用标准的电子邮件,但个性化的审计备忘录,将向公司部门主管发送电子邮件的工作自动化。发送给某个人的每封电子邮件也应包含相应的附件

我有一个电子表格,有三列:姓名、电子邮件地址和我想分别附加在a、B和C中的文件的位置。我已经在下面尽我所能地表达了这一点

A………..B………..C

姓名…………电子邮件…………附件

约翰·史密斯。。。。。a@b.com.....Q:\PLIU\File1

简·史密斯。。。。。c@d.com.....Q:\PLIU\File2

吉姆·史密斯。。。。。e@f.com.....Q:\PLIU\File3

这是我到目前为止的代码,但我无法确定如何将写入附件列的文件附加到附件中,因为调试告诉我“找不到此文件。请验证路径和文件名是否正确。”


提前谢谢

删除
“邮件附件”
周围的引号。您希望使用
MailAttachment
变量,但当前使用的是字符串“MailAttachment”,它当然不作为磁盘上的文件存在

    MailAttachment = Application.Cells(intX, 3).Value
    MailAddress = Application.Cells(intX, 2).Value

    Set objMail = Outlook.Application.CreateItem(olMailItem)

    objMail.Subject = "My subject line"
    objMail.Body = "My message body"
    objMail.To = MailAddress
    objMail.Attachments.Add MailAttachment `Remove quotes on this line

删除
“邮件附件”
周围的引号。您希望使用
MailAttachment
变量,但当前使用的是字符串“MailAttachment”,它当然不作为磁盘上的文件存在

    MailAttachment = Application.Cells(intX, 3).Value
    MailAddress = Application.Cells(intX, 2).Value

    Set objMail = Outlook.Application.CreateItem(olMailItem)

    objMail.Subject = "My subject line"
    objMail.Body = "My message body"
    objMail.To = MailAddress
    objMail.Attachments.Add MailAttachment `Remove quotes on this line

删除
“邮件附件”
周围的引号。您希望使用
MailAttachment
变量,但当前使用的是字符串“MailAttachment”,它当然不作为磁盘上的文件存在

    MailAttachment = Application.Cells(intX, 3).Value
    MailAddress = Application.Cells(intX, 2).Value

    Set objMail = Outlook.Application.CreateItem(olMailItem)

    objMail.Subject = "My subject line"
    objMail.Body = "My message body"
    objMail.To = MailAddress
    objMail.Attachments.Add MailAttachment `Remove quotes on this line

删除
“邮件附件”
周围的引号。您希望使用
MailAttachment
变量,但当前使用的是字符串“MailAttachment”,它当然不作为磁盘上的文件存在

    MailAttachment = Application.Cells(intX, 3).Value
    MailAddress = Application.Cells(intX, 2).Value

    Set objMail = Outlook.Application.CreateItem(olMailItem)

    objMail.Subject = "My subject line"
    objMail.Body = "My message body"
    objMail.To = MailAddress
    objMail.Attachments.Add MailAttachment `Remove quotes on this line

谢谢,这似乎已经解决了这个问题。我现在收到“无法添加附件;未提供数据源”的错误消息。我不知道这是什么意思。恐怕我帮不了你。(这不是你在这里问的问题;这将是一个单独的问题。你可以通过谷歌搜索你收到的确切错误消息开始;你可以在那里找到一些信息。)谢谢,我会这么做的!谢谢,这似乎已经解决了这个问题。我现在收到“无法添加附件;未提供数据源”的错误消息。我不知道这是什么意思。恐怕我帮不了你。(这不是你在这里问的问题;这将是一个单独的问题。你可以通过谷歌搜索你收到的确切错误消息开始;你可以在那里找到一些信息。)谢谢,我会这么做的!谢谢,这似乎已经解决了这个问题。我现在收到“无法添加附件;未提供数据源”的错误消息。我不知道这是什么意思。恐怕我帮不了你。(这不是你在这里问的问题;这将是一个单独的问题。你可以通过谷歌搜索你收到的确切错误消息开始;你可以在那里找到一些信息。)谢谢,我会这么做的!谢谢,这似乎已经解决了这个问题。我现在收到“无法添加附件;未提供数据源”的错误消息。我不知道这是什么意思。恐怕我帮不了你。(这不是你在这里问的问题;这将是一个单独的问题。你可以通过谷歌搜索你收到的确切错误消息开始;你可以在那里找到一些信息。)谢谢,我会这么做的!