29.07.2021, 20:06
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:
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
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 SubDie 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
