Emails mit Daten aus Excel aus Outlook versenden

Hallo, Leute, ich habe eine Exceltabelle, die hat folgende Spalten:
Name ---- Ansprechpartner --- Straße/Postfach ---- Hausnummer --- PLZ --- Stadt --- Email 1 ---- Email 2 -- Email 3 --- Email 4 --- Datenquelle
Es geht um meine Bachelorarbeit in Erziehungswissenschaften. Ich möchte ganz viele Kinderheime per Mail anschreiben. Die Mails sollen individualisiert einzeln über Outlook 2010 oder meinetwegen auch Mail für MacOSX rausgehen. Dabei gibt es Kinderheime, die ich in Heim-Verzeichnissen gefunden habe, die haben 1 oder 2 oder aber auch größer-gleich 3 Mailadressen veröffentlicht...
Ich möchte eine Funktion (VBA?) haben, die folgendes kann: Sie soll gucken, ob unter Email 1, 2, 3, was drin ist. Wenn ja, dann soll Outlook aufgehen, die Mails (z. B. "Beate@tolleskinderheim.de" und "Hans-Juergen@tolleskinderheim.de" und "Verwaltung@tolleskinderheim.de") sollen übernommen und in "An:" eingesetzt werden. Der Betreff soll immer der gleiche sein:
"Einladung zur Teilnahme an einer Grundlagenforschungs-Studie zum Thema Betreuerhandbücher in Kinderheimen in Deutschland (Webumfrage).
Dann soll da stehen:
Sehr geehrte/r Herr/Frau [ANSPRECHPARTNER automatisch aus Excel übernehmen],
über [Datenquelle] bin ich auf Sie aufmerksam geworden. Sie sind dort als Ansprechpartner/in für folgende Einrichtung der stationären Hilfen zur Kinder- und Jugenderziehung aufgelistet:
[NAME], [STRASSE], [HAUSNUMMER], [PLZ], [STADT], ...
Bitte besuchen Sie www.blablabla.de, dort finden Sie meine päd. Studie mit Bitte um Teilnahme [...].
MfG ....
____
wenn die Mail automatisch (Zeile 1) aus Excel raus ist, dann soll VBA automatisch in Zeile 2 gehen, gucken, ob die gefüllt ist und dann die nächste Mail mit den gleichen Platzhaltern ausgefüllt aus meiner Tabelle rausschicken. Das ganze läuft so ca. 3-4000 mal ab, da es in D. so viele Kinderheime gibt.
Wer kann mir einen Ansatz oder gar ein fertiges Programm nennen? Freeware wäre toll, als Student habe ich nicht so viel Geld!
Danke für Eure Hilfe, Euer Holger

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi,
das könnte funktionieren:

Option Explicit
Sub SendExample()
Const ColName As Long = 1
Const ColAnsprechpartner As Long = 2
Const ColStrasse As Long = 3
Const ColHausnummer As Long = 4
Const ColPlz As Long = 5
Const ColStadt As Long = 6
Const ColMail1 As Long = 7
Const ColMail2 As Long = 8
Const ColMail3 As Long = 9
Const ColMail4 As Long = 10
Const ColQuelle As Long = 11
Const RowFirst As Long = 2 'in Zeile 1 stehen Überschriften!
Dim RowLast As Long
Dim sBetreff As String
Dim sText As String
Dim sMails As String
Dim sMailsCC As String
Dim i As Long
sBetreff = "Einladung zur Teilnahme an einer Grundlagenforschungs-Studie zum Thema  _
Betreuerhandbücher in Kinderheimen in Deutschland (Webumfrage)."
With ActiveSheet
RowLast = .Cells(.Rows.Count, ColName).End(xlUp).Row
For i = RowFirst To RowLast
'Textfeld-variablen leeren
sText = ""
sMails = ""
sMailsCC = ""
'Body-Text füllen, der Übersichtlichkeit halber in mehrere Zeilen aufgeteilt!
sText = "Sehr geehrte/r Herr/Frau " & .Cells(i, ColAnsprechpartner).Value
sText = sText & "br br" 'das sind HTML Tags!
sText = sText & "über " & .Cells(i, ColQuelle) & " bin ich auf Sie aufmerksam geworden." _
sText = sText & "Sie sind dort als Ansprechpartner/in für folgende Einrichtung der  _
stationären Hilfen zur Kinder- und Jugenderziehung aufgelistet:"
sText = sText & "br br" 'das sind HTML Tags!
sText = sText & .Cells(i, ColName).Value
sText = sText & "br" 'das sind HTML Tags!
sText = sText & .Cells(i, ColStrasse).Value & " " & .Cells(i, ColHausnummer).Value
sText = sText & "br" 'das sind HTML Tags!
sText = sText & .Cells(i, ColPlz).Value & " " & .Cells(i, ColStadt).Value
sText = sText & "br br" 'das sind HTML Tags!
sText = sText & "Bitte besuchen Sie www.blablabla.de, dort finden Sie meine päd. Studie  _
mit Bitte um Teilnahme [...]."
sText = sText & "br br" 'das sind HTML Tags!
sText = sText & "MfG ...."
'MailTO und MailCC anassen (leere Zellen usw)
If Not .Cells(i, ColMail1).Value = "" Then sMails = .Cells(i, ColMail1).Value
If Not .Cells(i, ColMail2).Value = "" Then sMailsCC = .Cells(i, ColMail2).Value
If Not .Cells(i, ColMail3).Value = "" Then sMailsCC = sMailsCC & "," & .Cells(i,  _
ColMail3).Value
If Not .Cells(i, ColMail4).Value = "" Then sMailsCC = sMailsCC & "," & .Cells(i,  _
ColMail4).Value
'Mail senden
Call SendByOutlook(sBetreff, sMails, sMailsCC, sText)
Next i
End With
End Sub
Private Sub SendByOutlook(sSubject As String, sTo As String, sCC As String, sText As String)
Dim olApp         As Object
Dim olOldBody     As String
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
.GetInspector.Display
olOldBody = .htmlBody
.to = sTo
.cc = sCC
.Subject = sSubject
.htmlBody = sText & olOldBody
End With
End Sub

ich habe Probleme damit, korrekte HTML-Tags im Forum als Code-Teil anzuzeigen. Überall im Code wo "br" steht, muss natürlich
"kleiner" br "größer"
stehen, dann hat die Mail auch Zeilenumbrüche.
Grüße,
Klaus M.vdT.

Beliebteste Forumthreads (12 Monate)

Emails mit Daten aus Excel aus Outlook versenden

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Emails mit Daten aus Excel aus Outlook versenden

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread