AW: Emails per Knopfdruck senden
01.05.2020 10:49:58
ChrisL
Hi Ralf
Damit du nicht für jede Zeile ein eigenes Makro und Button einfügen musst, würde ich das Doppelklick-Ereignis verwenden.
Modul Tabelle1:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Call UFAnzeigen(Target.Row)
Cancel = True
End Sub
Private Sub UFAnzeigen(lngZeile As Long)
Load Test
With Tabelle1
Test.Label1 = .Cells(lngZeile, 1)
Test.Label2 = .Cells(lngZeile, 2)
Test.Label3 = .Cells(lngZeile, 3)
End With
Test.Show
End Sub
Modul Userform:
Private Sub CommandButton1_Click()
ActiveWorkbook.FollowHyperlink "mailto:mail@mail.com?title=Ein Titel&Subject=" & Label1 & _
"&Body=" & Label2 & "%0D%0A" & "Menge: " & TextBox3
End Sub
cu
Chris