Microsoft Excel

Herbers Excel/VBA-Archiv

Variable Abstimmungsschaltfläche

Betrifft: Variable Abstimmungsschaltfläche von: Mark
Geschrieben am: 28.07.2014 15:22:18

Hallo Zusammen!

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



  

Betrifft: AW: Variable Abstimmungsschaltfläche von: Rudi Maintaire
Geschrieben am: 28.07.2014 15:46:25

Hallo,
Schuss ins Blaue: Lass doch mal die " weg
.VotingOptions = Gebot1; Gebot2

Gruß
Rudi


  

Betrifft: AW: Variable Abstimmungsschaltfläche von: Mark
Geschrieben am: 28.07.2014 16:09:27

Das funktioniert leider nicht!


  

Betrifft: AW: Variable Abstimmungsschaltfläche von: EtoPHG
Geschrieben am: 28.07.2014 16:58:42

Hallo Mark,

so:

 .VotingOptions = Cells(1, 1).Text & ";" & Cells(2, 1).Text

Gruess Hansueli


  

Betrifft: AW: Variable Abstimmungsschaltfläche von: Mark
Geschrieben am: 30.07.2014 11:21:03

Ein WAHNSINN! VIELEN VIELEN DANK!!!!!!!!!!!!!!


 

Beiträge aus den Excel-Beispielen zum Thema "Variable Abstimmungsschaltfläche"