Office: (Office 2016) VBA Excel zweite Mail-Adresse hinzufügen

Hallo,

ich habe mal wieder ein kleines Problem und leider finde ich im Netz keine Lösung.

Ich hab mir einen Button gemacht, wenn ich da drauf drücke wird das Mailprogramm
geöffnet und eine Mail Adresse wird eingefügt.
Nun möchte ich eine zweite Mailadresse in die Programmierung einfügen aber ich bekomme
es einfach nicht hin!
Ich hoffe einer kann mir helfen.

Private Sub CommandButton1_Click()
Application.Dialogs(xlDialogSendMail).Show arg1:="michael.weis@rw-support.com"
End Sub

Viele Grüße Weismänn

 

Hallo Weismänn,

der einfache Gedanke wäre:
Private Sub CommandButton1_Click()
Application.Dialogs(xlDialogSendMail).Show arg1:="michael.weis@rw-support.com; hier@zweite-Adresse.de""
End Sub

Gruß,
Lutz

 

Hallo Lutz,

das hatte ich schon probiert,
leider hängt sich dann die Liste auf und nichts passiert..

Grüße Weismänn

 

Hallo Weismänn,

hab's getestet und Du hast recht...

Ich erstelle Mails auf diesem Wege:

Code:

Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)

objOutlook.ActiveExplorer
With objMail
   .To = "Kollege1@hier.com"
   .CC = "Kollege2@hier.com; Kollege3@hier.com"
   .Subject = "Überschrift"
'   .Body = "Ihre Nachricht."
    .Attachments.Add ThisWorkbook.FullName
    .Display        'Erstellt die Email und öffnet diese. Der Versand erfolgt anschließend manuell vom User!
End With

Set objOutlook = Nothing
Set objMail = Nothing

Das ist zwar etwas größer aber komfortabel, da Du die ganze Mail frei gestalten kannst.

Gruß,
Lutz

 

Hallo Lutz,

ich hab deinen Code so übernommen und nur die Email-Adressen geändert und wenn ich das mit einer
CommandButton1_Click() ausführe will er immer ein Makronamen haben?
Viele Grüße Weismänn

 

Hallo Weismänn,

kopiere den Code und füge ihn statt der Zeile
Application.Dialogs(xlDialogSendMail).Show arg1:="michael.weis@rw-support.com"
ein.

Gruß,
Lutz

 

Hallo Lutz,
es funktioniert...vielen Dank für deine Hilfe :-)

Letzte Frage hierfür, ich würde gerne den Dateinamen (Ändert sich Täglich) im Betreff stehen haben.
Wie stelle ich das an..

Viele DANKENDE Grüße Weismann

 

Hallo Weismänn,

wo kommt der Name her?
Wenn es die Datei mit dem Button ist

Code:

   .Subject = ThisWorkbook.Name

Gruß,
Lutz

 

Hallo Lutz,

DANKE....genau so Funktioniert es!

VIELEN DANK für DEINE schnelle HILFE

Vile Grüße Weismänn