EMail versenden / Empfänger in bestimmten Zellen
19.02.2013 13:03:02
Toumas
ich habe dank des Forums hier schon ein paar Lösungen für meine Probleme gefunden
und muss echt sagen, dass ich von den Vorschlägen, Ideen usw. echt begeistert bin.
Leider bin ich auch, was VBA angeht ein absoluter Anfänger (also verzeiht dann schon mal meine blöden Fragen).
Ich habe folgendes Problem.
In einer Excelliste kommen diverse Namen vor, diese sollten per Click auf einen Button per NetSend informiert werden. Dies habe ich auch dank des Forums lösen können.
Nun kam mein Chef auf die Idee, dass neben dem NetSend Befehl auch eine zusätzliche EMail an die betreffenden Personen versendet werden soll.
Die EMailadressen habe ich per SVerweis aus einer anderen Tabelle nach M9 bis M38 kopiert. Hier soll sich nun das Makro jeweils die Adresse rausziehen und mit dem Betreff "Test" eine EMail versenden.
Wie ich eine einzelne EMail (ohne Verweis auf die Zelle ) versenden kann aus Exel weiß ich ja mittlerweile, aber irgendwie Blicke ich bei den Beiträgen die ich hier finde zum Thema Mail aus Excel nicht durch. Könnt ihr, wenn es möglich ist und euch nicht zu viel Nerven kostet einem VBA-DAU auf die Sprünge helfen ?
Danke im Voraus.
Grüße
Mein Makro zum versenden einer EMail aus Exel :
Sub EmailTest3()
Dim olAPP As Object
Set olAPP = CreateObject("Outlook.Application")
With olAPP.CreateItem(0)
'Empfänger
.Recipients.Add "vorname.nachname@xxxxx.de"
'Betreff
.Subject = "Test-Mail"
'Nachricht
.body = "Das ist eine e-Mail" & Chr(13) & _
"Viele Grüße..." & Chr(13) & Chr(13)
'Lesebestätigung aus
.ReadReceiptRequested = False
.Send
End With
Set olAPP = Nothing
End Sub