cc in sendmail

[Eastw00d]

hoi ik heb onderstaande code achter een opdrachtknop hangen

Private Sub verstuur_Click()
With ActiveWorkbook
.Sheets(3).Copy
With ActiveWorkbook
.SendMail " ikke@gmail.com", "Aan-/Afvoer"
.Close False
End With
End With
Unload Me
End Sub

nu wil ik hier een bcc en een begeleidende tekst toevoegen. kan dit wel op deze manier?

 

[AHulpje]

Nee, helaas, .SendMail kent slechts drie argumenten:

.SendMail(Recipients, Subject, ReturnReceipt)

Als je gebruik maakt van Outlook zou het zo kunnen:

Sub SendMail()
    With CreateObject("Outlook.Application").CreateItem(0)
        .To = "iemand@voorbeeld.com"
        .CC = ""
        .BCC = "iemandanders@voorbeeld.com"
        .Subject = "Onderwerp"
        .Body = "Dit is de boodschap."
        .Attachments.Add ThisWorkbook.FullName
        .Send
    End With
End Sub