Hallo Olicer! ich hab solchener makro .Bcc = Range("A").Value wie kann ich mehere adress importieren? A1:A300 Funktioniert nicht ich wrde gern mehrere adress verbinden aus esxel datei in outlook.
Hier: Sub OutlookVorlage()
'Beispielhafte E-Mail
Dim oApp As Object
Dim strBody As String
'Pfad der Vorlage:
Const strVorlage As String = ("E:\DOKUMENTE BRIEFE\Seriemail\BWBK.oft")
Set oApp = CreateObject("OUTLOOK.Application")
'With oApp.CreateItem(0) 'Neue E-Mail ohne Vorlage
With oApp.CreateItemFromTemplate(strVorlage) 'E-Mail aus Vorlage
'Empfänger: An, cc, bcc
.Bcc = Range("A2:A30000").Value
'.Cc = "CC@example.com"
'.Bcc = "bcc@example.com"
'.Subject = "Betreff"
strBody = .HTMLBody
'========= Text in Vorlage ersetzen
'Body auslesen:
strBody = .HTMLBody
'Konto aussuchen, mit dem gesendet wird:
'Set .SendUsingAccount = .Session.Accounts.Item(2) 'Account 2
'.Attachments.Add strVorlage
.Display 'Anzeigen
'.Send 'Abschicken
End With
End Sub