Wie kann ich ein E-Mail aus dem Excel heraus schreiben und zwar als Blindkopie oder als Kopie
Danke für jede Hilfe
PeterE
Option Explicit
Sub MailSenden()
Dim OutApp As Object, Mail As Object
Set OutApp = CreateObject("Outlook.Application")
Set Mail = OutApp.CreateItem(0)
With Mail
.To = "Mailadresse" 'An
.CC = "Mailadresse" 'Carbon copy
.BCC = "Mailadresse" 'Blind carbon copy
.Subject = "hier der Betreff" 'Betreffzeile
.body = "Mein Text" 'Text
.Attachments.Add ThisWorkbook.FullName 'Dateianlage
.Display 'Mail nur anzeigen
'.Send 'Hier wird die Mail gesendet
End With
End Sub
Gruß Tino