Hallo zusammen,
ich bin gerade dabei VBA zu lernen und würde gerne testen, wie man mit Outlook automatisch Emails versenden kann. Hierzu habe ich entsprechende Empfänger (Adresese, Vorname, Nachname und Betreff) in Excel. Einen entsprechenden Email-Text (inkl. Absatz und Textformatierung) habe ich in Word vorliegen. Kann man das irgendwie kombinieren?
Ich habe im Netz bislang nur Lösungen gefunden, wie man Emails versenden kann, bei denen alles in Excel oder dem VBA vorliegt.
z.B. diese hier:
Sub Excel_Serial_Mail()
Dim MyOutApp As Object, MyMessage As Object
Dim i As Long
'Start der Sendeschleife an 10 Empfänger
For i = 1 To 10
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
'Die Empfänger stehen in Spalte A ab Zeile 1
.To = Cells(i, 1) 'E-Mail Adresse
'Der Betreff in Spalte B
.Subject = Cells(i, 2) '"Betreffzeil"
'Der zu sendende Text in Spalte C
'Maximal 1024 Zeichen
'Der Text wird ohne Formatierung übernommen
.Body = Cells(i, 3)
'Hier wird die Mail angezeigt
'.Display
'Hier wird die Mail gleich in den Postausgang gelegt
.Send
End With
'Objectvariablen leeren
Set MyOutApp = Nothing 'CreateObject("Outlook.Application")
Set MyMessage = Nothing 'MyOutApp.CreateItem(0)
'Sendepause einschalten
'Outlook kann die Aufträge nicht schnell genug verarbeiten
Application.Wait (Now + TimeValue("0:00:05"))
Next i
End Sub
