Mit VBA link in Mail

[Johannes72]

Hallo

Habe da ein Problem das ich nicht lösen kann und auch keine Lösung im Netz finde.

Ich habe ein Formular mit einer Schaltfläche die mir ein Mail erstellt:

Private Sub Befehl25_Click()
Const olFolderInbox = 6
Const olFolderOutbox = 4
Const olMailItem = 0
Dim olApp As Object 'Outlook.Application
Dim olNamespace As Object 'Outlook.NameSpace
Dim objMailItem As Object 'Outlook.MailItem
Dim objFolder As Object 'Outlook.mapiFolder

Set olApp = CreateObject("Outlook.Application")
Set olNamespace = olApp.GetNamespace("MAPI")
Set objFolder = olNamespace.GetDefaultFolder(olFolderInbox)
Set objMailItem = objFolder.items.Add(olMailItem)
With objMailItem
.To = [frmunterTtechMail]![tmail].Value
.Subject = "Auftragserteilung " & Me.Text27 & " ++ Interne Nr. " & Me.ID & " ++"

.Body = "Auftrag...." & vbCrLf & vbCrLf & _
"Adresse:" & vbCrLf & _
Me.tauftName & vbCrLf & _
Me.tauftName2 & vbCrLf & _
Me.tauftstr & vbCrLf & _
Me.taufOrt & vbCrLf & vbCrLf & _
"Ansprechperson: " & Me.taufKontakt & vbCrLf & _
"Tel. Nr.: " & Me.taufTel & vbCrLf & vbCrLf & _
"Terminvorgabe: " & Me.taufTerminvorgabe & vbCrLf & vbCrLf & _
Me.ttext & vbCrLf & vbCrLf & _
"Technikerpauschale/Stundensatz: " & Format(Me.Text39, "Currency") & vbCrLf & _
"Anfahrtspauschale: " & Format(Me.Text37, "Currency") & vbCrLf & vbCrLf & vbCrLf & _
[frmunterTtechMail]![tsignatur]

If tauftr1 <> "" Then .Attachments.Add (tauftr1)
If tauftr2 <> "" Then .Attachments.Add (tauftr2)
If tauftr3 <> "" Then .Attachments.Add (tauftr3)

.Display
End With
olApp.ActiveWindow
End Sub

So, jetzt möchte ich in diesem Mail auch noch eine Schaltfläche oder ein Wort das mit enem Hyperlink verbunden ist.

d.H. es soll z.B. das Wort "Anfahrt" drinnen stehen und diese ist dann mit einem Link hinterlegt.... eben die Adr. die sich aus der Adr. im Mail ergibt.

Dem Link habe ich das ist nicht das Problem, wie kann ich einem Wort den Hyperlink zuordnen??

Danke für eure Hilfe

[MzKlMu]

Hallo,
einfach das Forum zu wechseln nutzt nix. Du kriegst hier die gleichen Antworten.

https://www.ms-office-forum.net/forum/showthread.php?t=361698

Crosspostings sind unerwünscht. Siehe Forenregeln (Netiquette).

[PhilS]

So, jetzt möchte ich in diesem Mail auch noch eine Schaltfläche oder ein Wort das mit enem Hyperlink verbunden ist.

Um eine HTML-Email zu erstellen musst du ...
1.) dem MailItem-Objekt das BodyFormat olFormatHTML zuweisen.
2.) den Text über die HTMLBody-Eigenschaft anstelle von Body zuweisen.

Der Text den du zuweist muss dann natürlich insgesamt gültiges HTML sein, inkl. des Hyperlinks (Stichwort A HREF)
Siehe HTML-Emails mit VBA und Outlook für mehr Informationen.

Crosspostings sind unerwünscht. Siehe Forenregeln (Netiquette).

Grundsätzlich stimme ich dem zwar zu, aber bei diesem Thread im MOF gefallen mir die Antworten und die darin transportierte Einstellung nicht. Anstatt eines minimalen Hinweises auf die Lösung nur Verweise auf andere Quellen und eher wage Andeutungen warum es mit dem bisherigen Code nicht funktioniert. Da kann ich schon etwas nachvollziehen, warum man als Fragesteller ein anderes Forum mit derselben Frage aufsucht.

[MzKlMu]

Hallo,

Da kann ich schon etwas nachvollziehen, warum man als Fragesteller ein anderes Forum mit derselben Frage aufsucht.

dann sollte man aber fairerweise einen Link zum anderen Forum einfügen.

[Johannes72]

Hallo

Sorry für das doppelte posting...
Aber wie schon gesagt konnte ich mit den gut gemeinten Verweisen auf andere posts nichts anfangen... darum habe ich versucht ob es hier etwas kontretere Hilfestellungen gibt..

Danke