Supportnet / Forum / Tabellenkalkulation
Serienmail in Excel
Frage
Hallo Leute,
hab folgendes Problem.
Ich würde gern eine Serienmail aus Excel heraus versenden.
Hab dazu folgendes Makro gefunden
[code]Public Sub SendMails()
Dim MyOutApp As Object, MyMessage As Object
Dim i As Long
Dim ii 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[/code]
In der Tabelle1 hab ich in Spalte A die Empfänger stehen in Spalte B einen Betreff zu jedem Empfänger und in Spalte C dann den Text der in den Emailboddy soll.
Wenn ich jetzt das Makro ausführe kommt erstmal die Sicherheitsabfrage von Outlook "Eine Anwendung möchte auf Ihre Adressdaten zugreifen. Möchten Sie dies erlauben ?"
Wenn man da "Ja" anklickt kommt folgender Fehler in Excel....
[code]Laufzeitfehler '-2147467259 (800004005)';
Outlook kennt mindestens einen Namen nicht.[/code]
Was mach ich denn da falsch?
Wieso sendet mit Outlook meine Mails nicht?
Danke für eure Hilfe
Gruß
Morpheus
Antwort 1 von morpheus__85
Hi Leute,
hab das Problem gefunden.
Ich habe Excel gesagt er soll in der Ersten Spalte anfangen und da steht dann aber die Überschrift und da erkennt der dann ja keine E-mail adresse.
Eine Frage hätte ich noch...
Gibt es dir Möglichkeit diese Sicherheitsabfrage ob der Zugriff gewährt werden soll zu umgehen? also immer mit ja zu akzeptieren? denn das wäre sonst ein großer Aufwand vor jedem Versenden auf "Ja" zu klicken.
danke und gruß
morpheus
hab das Problem gefunden.
Ich habe Excel gesagt er soll in der Ersten Spalte anfangen und da steht dann aber die Überschrift und da erkennt der dann ja keine E-mail adresse.
Eine Frage hätte ich noch...
Gibt es dir Möglichkeit diese Sicherheitsabfrage ob der Zugriff gewährt werden soll zu umgehen? also immer mit ja zu akzeptieren? denn das wäre sonst ein großer Aufwand vor jedem Versenden auf "Ja" zu klicken.
danke und gruß
morpheus