Hallo,

über den Befehl kann man die akutelle Excel-Datei als Anhang per E-Mail verschicken:
 

Application.Dialogs(xlDialogSendMail).Show

Wie füge ich jedoch im Code den Empfänger hinzu? Folgende Syntax funktioniert nicht, da ("ungewollt") eine zweite Mail generiert wird:

Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
    .To = "test@test.com"
End With
Set MyOutApp = Nothing
Set MyMessage = Nothing