Outlook 2007 Bild mit Hyperlink per VBSrict
Hallo,
habe folgendes Problem:
Möchte mit VBScript eine Mail erstellen, die ein Bild enthält (nicht als Signatur) und welches einemn Link hinterlegt hat.
Als einfache Erklärung im normalen Maildialog in Outlook "Grafik einfügen" in die Dateileiste den Herkunftslink des Bildes eingeben, dann erscheint das Bild. Diesen dann mit einem Hyperlink hinterlegen. Der Empfänger kann somit das Bild anklicken und wird auf die entsprechende Website geführt.
Bei mir funktioniert bisher nur die Übergabe der Links, die auch jeweils als Link erscheinen und auch anklickbar sind. Das wars aber schon.
Jetzt muss ich dazu sagen, dass ich nicht der Programmierer bin sondern dies eher so nebenbei mache.
Das Script rufe ich aus meiner Datenbank auf. Die jeweiligen Links sind dort korrekt hinterlegt. Im entsprechenden Bereich sieht das so aus:
Dim sMailAdresse, sSubject, sBetreff, sBild, sObjLink, sObjID, sObjTitel
sBild = oRecord.GetContentsByName("BildLink")
sObjLink = oRecord.GetContentsByName("HPLink")
sMailAdresse = oRecord.GetContentsByName("Email")
sSubject = cstr("blablabla")
Dim sBody
'------------Darum geht es
sBody = sBild & vbLf
sBody = sBody & sObjLink & vbLf
'-------------------------------
ClipboardText(sBody)
Const oMailItem = 0
Set oApp = CreateObject("Outlook.Application")
Set oMail = oApp.CreateItem(olMailItem)
oMail.To = cstr(sMailAdresse)
oMail.Subject = cstr(sSubject)
oMail.Body = cstr(sBody)
oMail.Display
Jetzt mag man meinen, ich müsste >oMail.Body< durch >oMail.HTMLBody< ersetzen. Da erreiche ich aber nur eine Textmail.
Kann mir hier jemand helfen.
Vielen Dank schon vorab!
Robert
habe folgendes Problem:
Möchte mit VBScript eine Mail erstellen, die ein Bild enthält (nicht als Signatur) und welches einemn Link hinterlegt hat.
Als einfache Erklärung im normalen Maildialog in Outlook "Grafik einfügen" in die Dateileiste den Herkunftslink des Bildes eingeben, dann erscheint das Bild. Diesen dann mit einem Hyperlink hinterlegen. Der Empfänger kann somit das Bild anklicken und wird auf die entsprechende Website geführt.
Bei mir funktioniert bisher nur die Übergabe der Links, die auch jeweils als Link erscheinen und auch anklickbar sind. Das wars aber schon.
Jetzt muss ich dazu sagen, dass ich nicht der Programmierer bin sondern dies eher so nebenbei mache.
Das Script rufe ich aus meiner Datenbank auf. Die jeweiligen Links sind dort korrekt hinterlegt. Im entsprechenden Bereich sieht das so aus:
Dim sMailAdresse, sSubject, sBetreff, sBild, sObjLink, sObjID, sObjTitel
sBild = oRecord.GetContentsByName("BildLink")
sObjLink = oRecord.GetContentsByName("HPLink")
sMailAdresse = oRecord.GetContentsByName("Email")
sSubject = cstr("blablabla")
Dim sBody
'------------Darum geht es
sBody = sBild & vbLf
sBody = sBody & sObjLink & vbLf
'-------------------------------
ClipboardText(sBody)
Const oMailItem = 0
Set oApp = CreateObject("Outlook.Application")
Set oMail = oApp.CreateItem(olMailItem)
oMail.To = cstr(sMailAdresse)
oMail.Subject = cstr(sSubject)
oMail.Body = cstr(sBody)
oMail.Display
Jetzt mag man meinen, ich müsste >oMail.Body< durch >oMail.HTMLBody< ersetzen. Da erreiche ich aber nur eine Textmail.
Kann mir hier jemand helfen.
Vielen Dank schon vorab!
Robert
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 244848
Url: https://administrator.de/forum/outlook-2007-bild-mit-hyperlink-per-vbsrict-244848.html
Ausgedruckt am: 22.04.2025 um 13:04 Uhr
2 Kommentare
Neuester Kommentar
Hallo Robert, Willkommen auf Administrator.de!

und dann an die richtige Eigenschaft übergeben:
Grüße Uwe
Jetzt mag man meinen, ich müsste >oMail.Body< durch >oMail.HTMLBody< ersetzen. Da erreiche ich aber nur eine Textmail.
Du musst den Body nur mit etwas HTML und den Links würzen, dann klappt das auch sBody = "<a href=""" & sObjLink & """><img src=""" & sBild & """></a><br />"
oMail.HTMLBody = sBody