|
Hallo liebe Programmierfreunde,
ich habe eine Excel-Tabelle die wie folgt aufgebaut ist:
Die Tabelle enthält ca. 50 Einträge dieser Art. Bei Anklicken des Hyperlinks(E-mail Adresse) soll das nachfolgende Makro ausgeführt werden. Dazu muss genau aus dieser Zeile der Inhalt, aus in diesem Fall B2, ausgelesen werden. Wie lautet der entsprechende Befehl, um dies umzusetzen?
Hier mein Programmcode:
Sub E_mail_versenden()
Dim objOut As Object
Dim objMail As Object
Dim strText As String
Dim strName As String
Set objOut = CreateObject("Outlook.Application")
Set objMail = objOut.CreateItem(olMailItem)
strName = Tabelle1.Range("B2").Text
strText = Tabelle2.Shapes("Textfeld 1").TextFrame2.TextRange.Text-->hier steht: "Sehr geehrter Herr"
With objMail
.Subject = Tabelle2.Range("B2").Value-->hier steht die Überschrift
.Body = strText & strName & ","
.to = Tabelle1.Range("C2").Value
.Display
End with
Viel Dank vorab.
Gruß
Timm
|