email senden > empfänger in zelle
Stef@n
mittels folgendem Makro sende ich ein email, wenn ein bestimmter Text in einer Zelle steht.
funktioniert auch wunderbar.
jetzt möchte ich noch eines erreichen
Die Empfängeradresse soll im Tabellenblatt in die Zelle L13 geschrieben werden,
Das Makro soll sich dann die Empfängeradresse entsprechend aus dieser Zelle "holen"
Mein Versuch (s.u.) funktioniert nicht
Sub OL_Senden()
Dim olApp As Object
Dim objMail As Object
'ergänzt um emailadresse aus zelle L13 zu "holen"
Dim Empfaenger As Integer
Empfaenger = [L13]
If Range("O10").Value = "TEST" Then 'email versenden, wenn in Zelle O10 = TEST steht
Set olApp = CreateObject("Outlook.Application")
Set objMail = olApp.CreateItem(olMailItem)
With objMail
'.To = "empfaenger@domain.com" > das funktioniert !
.to = Empfaenger 'das funktioniert leider nicht
.Subject = "hier der Betreff-Textl"
.Body = "hier der email-Text"
'.Display 'zeigt die Mail nur an - du musst auf Senden klicken
.Send 'legt die Mail gleich in den Postausgang
End With
End If
'wenn du selbst auf Senden klicken willst, dann lösch die .Send-Zeile
'wenn du gleich Senden willst, dann entferne das Apostroph aus der .Send-Zeile
'und lösch die .Display-Zeile oder setz vor selbiger ein Apostroph
End Sub
Anzeige