Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Mail per VBA erzeugen und automatisch Link in Inhalt einfügen
#1
Hallo zusammen,

ich habe folgenden Wunsch:

in meiner Datei habe ich Buttons, mit denen sich automatisch das Outook-Versenden Fenster öffnet.

Der Code hierfür sieht so aus:

Code:
Sub MailMitOutlookEmpfang()
   Dim Nachricht As Object, OutApp As Object
   Set OutApp = CreateObject("Outlook.Application")
   Set Nachricht = OutApp.CreateItem(0)
   With Nachricht
       .to = "m.muster@muster.de"
       .Subject = "Formular Nr. " & Sheets("Tabelle1").Cells(1, 9).Value & " wurde eröffnet"
       .Body = "Formular Nr. " & Sheets("Tabelle1").Cells(1, 9).Value & " wurde eröffnet."
       'Hier wird die Mail nochmals angezeigt
       .Display 'oder .Send zum versenden
       End With
   'OutApp.Quit
   Set OutApp = Nothing
   Set Nachricht = Nothing
End Sub


Nun hätte ich gerne, dass sich der Bereich
Code:
& Sheets("Tabelle1").Cells(1, 9).Value & "

schon automatisch mit einem Link in ein bestimmtes Verzeichnis versehen kann, sodass die Mail empfangende Person auf diesen Link klickt und in diesem Verzeichnis landet.

Hat jemand eine Idee?

Vielen Dank euch
Antworten Top
#2
Hey,

versuchs mal damit:

Code:
Sub hyperlink_in_email_body()
   Dim sPath As String
   Dim LinkText As String

   sPath = Sheets("Tabelle1").Cells(1, 9).Value
   LinkText = "Hello"

   Dim mailmsg As Object
   Dim OutLkApp As Object

   Set OutLkApp = CreateObject("Outlook.Application")
   Set mailmsg = OutLkApp.CreateItem(0)
   With mailmsg
       .To = "hello@world.com"
       .Subject = sPath
       .HTMLBody = "<a href='" & sPath & "'>" & LinkText & "</a>"
       .Display
   End With

End Sub


Gruß
Chris
Antworten Top
#3
Hallo nitrosworld,

ich bin relativ unerfahren mit VBA.

Wie sieht dann der komplette Code zusammen aus? Wenn ich nur diesen Code verwende passiert nichts.

Gruß
Antworten Top
#4
Eigentlich müsstest du nur eine Zeile Code ersetzen, und zwar diese
Code:
.Body = "Formular Nr. " & Sheets("Tabelle1").Cells(1, 9).Value & " wurde eröffnet."
durch diese:

Code:
.HTMLBody = "<a href='" & Sheets("Tabelle1").Cells(1, 9).Value  & "'>" & "Das ist der LinkText" & "</a>"


So wie ich es verstanden habe, steht der Pfad der geöffnet werden soll in dieser Zelle:
Code:
Sheets("Tabelle1").Cells(1, 9).Value

Gruß
Chris
Antworten Top
#5
Super hat geklappt vielen Dank Chris
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste