Hyperlink aktivieren
02.08.2016 15:42:04
Berndt
benötige die Hilfe bei einen Code. Der Hyperlink wird eingefügt und die Mail wird geöffnet. Allerdings wird der Hyperlink nicht blau markiert, damit man darauf klicken kann.
Kann einer helfen, wo der Fehler liegt?
in der Range Zelle steht irgend ein link (zur Info).
Sub CommandButton1_Click()
'Speichern
ThisWorkbook.Save
'Öffnen von Outlook und einer neuen Email
Set olapp = CreateObject("Outlook.Application")
Set olitem = olapp.createitem(OlMailItem)
'Benennung Betreff der Email
olitem.Subject = ActiveWorkbook.Name
'Inhalt der Email
olitem.body = "Hallo HBA-Team," & vbLf & vbLf & "bitte bearbeiten Sie die ABC weiter, ich _
_
habe meinen Teil bearbeite und hiermit bestätigt." & vbLf & vbLf & "Liebe Grüße" & vbLf & vbLf & _
"Link dazu: " & Range("A1")
'Adresse der Email
olitem.to = "abc@zyx.de"
'Adresse anzeigen
olitem.Display
End Sub
Gruß Berndt