VBA mehrere Empfänger und Anhang

Hallo Zusammen
Ich habe folgenden Code zusammengebastelt. Das einzige kleine Problem dass ich noch habe ist dass ich einen zusätzlichen Empfänger ins CC setzen möchte. Oder wenigstens einen zusätzlichen Empfänger in die Empfängerzeile. Funzt leider nicht mit Semikollon oder Komma etc. Kann mir jemand helfen? Anbei der Code der so wie er ist funktioniert:

Private Sub CommandButton1_Click()
Sheets("Berechnung").Calculate
Sheets("Waste Management Check").Calculate
Dim ObjOutlook As Object
If Range("H51") = "ABC" Or Range("H51") = "ABCDE" Then
If MsgBox("Thanks for calculating. Like to send? ", vbYesNo) = vbYes Then
Empfaenger = "info@xyz.ch"
Titel = "calculated file from " & Range("H4").Value
Application.Dialogs(xlDialogSendMail).Show Empfaenger, Titel
End If
End If
End Sub

danke für eure Hilfe
Grüsse
Pellton

Hallo!
Der Code, in der geposteten Form, macht so auch nicht wirklich Sinn.
Du deklarierst zwar ein Objekt für Outlook, was grds. dem Ziel entspricht, mit diesem Objekt eine neue Nachricht zu erzeugen, und dieser dann ggf. entsprechende Empfänger bzw. CC-Adressaten hinzuzufügen - nur nutzt Du nach der Deklaration dieses Objekt nie mehr.
Stattdessen nutzt Du eine Excel-interne Funktion (Dialog) um direkt eine neue Nachricht, mit der Mappe als Anlage, zu erzeugen. Dabei steht Dir aber die Angabe von .CC per Code nicht zur Verfügung; um mehrere Empfänger (An) zu übergeben musst Du, wie Matthias bereits erwähnt hat, diese zunächst in einem String sammeln. D.h.:

Private Sub CommandButton1_Click()
Dim MailEmpf As String
Dim Betreff As String
Sheets("Berechnung").Calculate
Sheets("Waste Management Check").Calculate
If Range("H51") = "ABC" Or Range("H51") = "ABCDE" Then
If MsgBox("Thanks for calculating. Like to send? ", vbYesNo) = _
vbYes Then
MailEmpf = "abc@xyz.org;info@xyz.ch" 'usw. ...
Betreff = "Calculated file from " & [H4].Value
Application.Dialogs(xlDialogSendMail).Show _
MailEmpf, Betreff
End If
End If
End Sub

Das Outlook-Objekt benötigst Du dann nicht. Solltest Du aber mit diesem arbeiten wollen, müsste der Code anders aussehen, dann stehen Dir auch mehr Möglichkeiten (zB die Angabe von CC-Empfängern) zur Verfügung:

Sub a()
Dim ObjOutlook As Object
Dim Betreff As String
Sheets("Berechnung").Calculate
Sheets("Waste Management Check").Calculate
If Range("H51") = "ABC" Or Range("H51") = "ABCDE" Then
If MsgBox("Thanks for calculating. Like to send? ", vbYesNo) = _
vbYes Then
Set ObjOutlook = CreateObject("Outlook.Application")
Betreff = "Calculated file from " & [H4].Value
With ObjOutlook.createitem(0)
.To = "abc@xyz.org;info@xyz.ch" 'usw.
.Cc = "mail@post.com" 'usw.
.Subject = ""
.Display
End With
End If
End If
End Sub

Auch hier würde sich aber das vorige Sammeln der jeweiligen Einträge (An, Cc, Betreff... ) in Variablen (oder ggf. Konstanten) anbieten.
LG
Michael

VBA mehrere Empfänger und Anhang

Forumthread: VBA mehrere Empfänger und Anhang

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

VBA mehrere Empfänger und Anhang

Forumthread: VBA mehrere Empfänger und Anhang

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread