Ich komme nicht weiter. Ich würde gerne eine Mail mit varibalen Abstimmungsflächen versenden.
Dabei soll der Text aus den Excel Feldern A1 bzw. A2 als Abstimmungsflächen übernommen werden. Händisch in einer Mail funktioniert der Spaß aber leider nicht über meinen VBA Code. Google konnte mir nicht helfen. Vielleicht weiß jemand ein Lösung!
Dank im Voraus
Sub Test()
Dim outObj As Object
Dim Mail As Object
Dim Empfänger As String
Dim Gebot1 As String
Dim Gebot2 As String
Gebot1 = Range("A1")
Gebot2 = Range("A2")
Empfänger = "vorname.nachname@gmx.de"
Set outObj = CreateObject("Outlook.Application")
Set Mail = outObj.CreateItem(0)
With Mail
.Subject = "Test-Mail aus Makro"
.Body = "Hallo," & vbLf & _
"diese Mail mit Schaltfläche kommt aus dem Makro!"
.To = Empfänger
.VotingOptions = "Gebot1; Gebot2" 'funktiniert nicht!!! :-(
End With
Mail.send
Set outObj = Nothing
Set Mail = Nothing
End Sub