如何在VBA中結束正文郵件？

這真是令我瘋狂，我敢肯定這個問題已經解決了很多次，但是我在這個論壇或谷歌上找不到它。所以我很抱歉爲此做了一個線程。如何在VBA中結束正文郵件？

我不知道如何結束正文文本。

非常感謝。

With OutMail 
     .To = "" ' Either an email address or a cell value that contains an email address: ActiveSheet.Range("B11").Value 
     .CC = "" 
     .BCC = "" 
     .Body = "Geachte heer, mevrouw," & vbNewLine & _ 
     " " & vbNewLine & _ 
     "De volgende kasbankopdrachten staan klaar in Kasweb onder rekeningnummer........ Ik verzoek u ze te valideren." & vbNewLine & _ 
     "Bijgaand ontvangt u het boedeloverzicht, tevens treft u hieronder de berekening van het nog te innen bewindvoerdersalaris en onkosten." & vbNewLine & _ 
     ActiveSheet.Range("C4").Value & Space(3) & ActiveSheet.Range("C3").Value & Space(10) & ActiveSheet.Range("C3").Value & Space(20) & ActiveSheet.Range("C27").Value & Space(5) & ActiveSheet.Range("B27").Value & vbNewLine & _ 
     ActiveSheet.Range("C4").Value & Space(3) & ActiveSheet.Range("C3").Value & Space(10) & ActiveSheet.Range("B2").Value & Space(15) & ActiveSheet.Range("C26").Value & Space(5) & ActiveSheet.Range("B26").Value & vbNewLine & _ 
     " " & vbNewLine & _ 
     "Salaris volgens vonnis (incl. 21% BTW)" & Space(14) & ThisWorkbook.Worksheets("Salaris").Cells("42, P").Value & vbNewLine & _ 
     "" 
     .Subject = ActiveSheet.Range("C4").Value & Space(3) & ActiveSheet.Range("C5").Value & Space(3) & ActiveSheet.Range("C3").Value 
     .Display ' Change this to Send if you want to automatically send it without preview 
     .Attachments.Add PdfFile ' Delete this line if you don't want the attachment 
    End With 
On Error GoTo 0 


    Set OutMail = Nothing 
    Set OutApp = Nothing 
End Sub

來源

2016-05-24 Koen

不知道你的意思。據推測，您在Excel中撰寫此VBA時，您多次提到ActiveSheet。你遇到的問題究竟是什麼？ Body元素正在設置，看起來好嗎？ – Dave

我收到此錯誤：vba錯誤5無效的過程調用或參數 https://gyazo.com/a3f26b6b3615daae6f4fee9d418e72e2 – Koen

Cells("42, P").Value

應該

Cells("42", "P").Value

你收到這個錯誤，因爲你提供的無效參數到Cells()方法

來源

2016-05-24 11:21:08

是的！你是人!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! – Koen

如何在VBA中結束正文郵件？

回答

相關問題