Ich benutze folgenden Code um aus Excel eine Email zu verschicken. Die Empfänger Emailadresse muß ich hierbei direkt in den Code eingeben. Kann mir jemand den Code so abändern, daß ich ich die Emailadresse auch aus einem Arbeitsblatt auslesen kann - Konkret: ich möchte daß die Adresse aus der Zelle C5 auf dem Arbeitsblatt mit dem Namen "Email" verwendet wird!
Vielen Dank!
Private Sub cmdMailen_Click()
Dim olApp As Object
Dim myMail As Object
Set olApp = CreateObject("Outlook.Application")
Set myMail = olApp.CreateItem(0)
With myMail
' hier Empfänger angeben
.to = "name@mail.de"
.Subject = "Test"
' hier Textdatei angeben
.Body = get_text("c:\text.txt")
.display
' Kommentar entfernen, wenn direkt gesendet werden soll
.send
End With
End Sub