电子邮件附件VBA excel

Question

我想通过在Excel中的VBA发送电子邮件，所有的作品罚款电子邮件附件。它似乎没有链接它。问题在哪里？ 字符串附加指向正确的文件。

Dim OutApp As Object 
Dim OutMail As Object 
Dim email 
Dim attach 

email = writeEmailAddress() 
attach = attachement() 

Sheets("Mail").Range("B1") = email 
Sheets("Mail").Range("B2") = "xxxxxx" 
Sheets("Mail").Range("B3") = "xxxxxxx" 
Sheets("Mail").Range("B4") = attach 
MsgBox attach 

Set OutApp = CreateObject("Outlook.Application") 
Set OutMail = OutApp.CreateItem(0) 

On Error Resume Next 
With OutMail 
    .SendKeys "^{ENTER}" 
    .to = "xxxxx" 
    .CC = "" 
    .BCC = "" 
    .Subject = Sheets("Mail").Range("B5").Value 
    .Body = Sheets("Mail").Range("B6").Value 
    'You can add other files also like this 
    .Attachments.Add attach ' <--------------------------------This is causing troubble 
    .Display 
End With 
On Error GoTo 0 

Set OutMail = Nothing 
Set OutApp = Nothing 

Answer 1

变化，

.Attachments.Add attach 

...来，

If CBool(Len(Dir(attach, vbNormal))) Then 
    .Attachments.Add attach, 1 '<~~ 1 is olByValue 
Else 
    Debug.Print "Cannot find '" & attach & "'" 
End If 

如果附件没有添加到您的电子邮件项目，检查VBE的立即窗口（如按Ctrl + G）为错误消息。