AW: kann Dir nicht folgen
08.04.2009 17:00:49
Peter
Das Makro wäre so:
Sub Excel_Serial_Mail()
Dim MyOutApp As Object, MyMessage As Object
Dim i As Long
'Start der Sendeschleife an 10 Empfänger
For i = 2 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
Und meine Idee war, vorher die Schriftart in Outlook zu ändern. Denn ich finde die Vorgabe bei einem längeren TExt in Html schon sehr kompliziert.
Wäre sowas denn machbar?