Hyperlink in E-Mail in Outlook auf Basis einer Excel-Tabelle

[AnnAbel97]

Hello World,

mein Name ist Annabel und ich bin noch recht neu in der VBA-Welt. Ich muss aber zugeben, dass ich das Gefühl eines funktionierenden Codes sehr feiere. Ich verzweifle gerade ein wenig, aber vielleicht könnt ihr mir ja helfen?

Ich habe hier einen Code, mit welchem man basierend auf eine Excel-Tabelle Mails in Outlook versenden kann. Nun würde ich gerne in den Text auf das Wort "Link" einen Hyperlink zum Sharepoint einbinden.

Der aktuelle Code ist wie folgt:

Code:

VBA Code:
Sub Bulkversand()


Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Bulkversand_JF_TP")


Dim OA As Object
Dim msg As Object


'Update Date in List


ThisWorkbook.Sheets("Bulkversand").Range("G2").Value = Date


'Create Mail based on List


Set OA = CreateObject("Outlook.Application")


Dim i As Integer
Dim last_row As Integer


last_row = Application.WorksheetFunction.CountA(sh.Range("A:A"))


For i = 2 To last_row


Set msg = OA.CreateItem(0)


msg.To = sh.Range("A" & i).Value
msg.CC = sh.Range("B" & i).Value
msg.Subject = sh.Range("C" & i).Value
msg.Body = sh.Range("D" & i).Value




If sh.Range("E" & i).Value <> "" Then
msg.Attachments.Add sh.Range("E" & i).Value


End If


msg.Display 'alternativ .send


Next i


End Sub

Die Basis-Tabelle ist wie folgt aufgebaut:
Spalte A: Mail-Adresse
Spalte B: CC-Adressen
Spalte C: Betreff
Spalte D: Text: "Hi there, please check out the following Link. BR Annabel"
Spalte E: Link zum Anhang

Hier würde ich dann gerne, dass durch klicken auf das Wort "Link" ein Hyperlink zum Sharepoint führt. Wenn ich den Link direkt in Excel einbaue, dann funktioniert es leider nicht. Wenn ich es mit den Zeichen "<>" im Code versuche, ist mit der Link leider zu lang, ich hätte gerne einen kurzen Link, am liebsten das Wort "Link" als Link.

Vielleicht kann mir da ja jemand helfen.

DAAAAANKE!

Beste Grüße
Annabel

[Niko]

Hallo,
als Anfänger ist zwar mein Wissen Limitiert,
doch ich habe mein Wissen von diesen Seiten geholt,
was E-Mail senden mit Excel angeht.

Hier:
http://www.rondebruin.nl/sendmail.htm

Bzw.
http://www.rondebruin.nl/mail/folder2/mail4.htm

Wünsche desweiteren viel Spaß mit Excel



Niko der Anfänger