Email aus Excel Tabelle mittels VBA senden
08.08.2007 10:25:33
Jon
A1:A10 Name
B1:B10 Emailadresse
Ich möchte jetzt jede Email adresse so verlinken, dass bei einem Klick auf die Adresse selbst sich Outlook öffnet und die Email adresse entsprechend im Recipient Feld steht, der Name in der Betreffzeile usw. VBA soll sich also die Daten aus dem Excel sheet holen.
Bisher habe ich folgenden Code (Es wären also die Recipients.Add und .Subject Befehle zu ändern):
Sub Mail_senden()
Dim olApp As Object
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
.Recipients.Add "empfaenger@provider.de"
.Subject = "Test-Mail"
.Body = "Das ist eine e-Mail" & Chr(13) & _
"Viele Grüße..." & Chr(13) & Chr(13)
.ReadReceiptRequested = False
.Display
End With
Set olApp = Nothing
End Sub