Hallo Forum,
ich habe eine VBA-Routine geschrieben (ehrlich gesagt, hab ich sie mir aus dem Internet zusammengeschustert), die mir aus Excel ein Mail generiert. Ich bin auch recht happy damit, noch glücklicher wäre ich, wenn ich auch Adressen ins CC- und ins BCC-Feld schreiben könnte. Die Empfänger stehen in Zelle (50,1). Ich habe jetzt eine Weile herumgesucht, aber nirgends eine Liste gefunden, die mir die einzelnen Variablen angibt, die ich an Outlook (bzw. an andere Programme) übergeben kann. Ich hoffe, mich verständlich ausgedrückt zu haben. Hier der Code:
Sub Mail_senden()
Dim olApp As Object
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
'Empfänger
.Recipients.Add Cells(50, 1)
'Empfänger CC und BCC
'wie soll ich das anstellen?
'Betreff
.Subject = "Test-Mail"
'Nachricht
.Body = "Das ist eine e-Mail" & Chr(13) & _
"Viele Grüße..." & Chr(13) & Chr(13)
'Lesebestätigung aus
.ReadReceiptRequested = False
.display
End With
Set olApp = Nothing
End Sub
Und danke für die Hilfe!
Schöne Grüße, Seppizett
|