Office: (Office 2016) Mailversand per VBA mit individuellem Link

christin84 · 25. Januar 2020

Hallo zusammen,
ich finde leider keine Antwort auf meine Frage und hoffe, ihr könnt mir weiterhelfen.

Per VBA versende ich zur Zeit Mails mit Anhang. Dieser Anhang wird mit dem Befehl
Path1 = OpenFileNameAX("C:...", "Datei öffnen") ausgewählt und anschließend mit dem Befehl outMail.Attachments.Add Path 1 der Mail angehängt und verschickt.

Nun ändern wir unser Prozedere und statt einer PDF-Datei möchte ich nun einen Link zur Datei einfügen, der dann in den E-Mail-Text eingelesen wird. Wie ich ein festen Link einbaue, ist mir klar. Aber wie schaffe ich es, dass der Link individuell ist.

Sprich der Mitarbeiter soll mittels Messagebox (oder was auch immer) aufgefordert werden einen Link in ein Feld einzugeben und dieser wird dann in den E-Mail-Text übernommen und Mail wird dann versendet.

Hoffe, ihr könnt mir weiterhelfen.

Viele Grüße
Christin

:)

knobbi38 · 27. Januar 2020

Hallo Christin,

mal abgesehen davon, daß das ein Thema für das Outlook Forum ist, kannst du im einfachsten Fall mit einer Inputbox den Link abrufen und dann analog einem "festen Link", was auch immer das ist, in den HTMLBody-Text einbauen.
Wie ein "fester Link" eingebaut wird, weißt du ja anscheind schon.

Ulrich

christin84 · 27. Januar 2020

Hallo Ulrich,
da habe ich mich wohl nicht gut genug ausgedrückt. Ich versende derzeit aus Access E-Mails. Genau schaut das wie folgt aus:

In einem Formular gibt es ein Kontrollhäkchen, sobald dieser markiert wird, wird eine E-Mail an mehrere Empfänger ausgelöst. Derzeit wird der Mitarbeiter aufgefordert eine PDF aus unserem Laufwerk auszuwählen. Diese wird dann mit der Mail als Anhang verschickt.

Hier der gesamte Code:
Code:

Private Sub uearberl_AfterUpdate()

If Me.uearberl = True Then GoTo wahr Else GoTo falsch

wahr:
Dim db As DAO.Database
Dim rs As DAO.Recordset

Dim emailTo As String
Dim emailSubject As String
Dim emailText As String
Dim strSQL As String
Dim hinweis As String

Dim outApp As Outlook.Application
Dim outMail As Outlook.MailItem
Dim Path As String
Dim outlookStarted As Boolean

On Error Resume Next
Set outApp = GetObject(, "Outlook.Application")
On Error GoTo 0
If outApp Is Nothing Then
Set outApp = CreateObject("Outlook.Application")
outlookStarted = True
End If

matfett = Me!mat.Value

Set db = CurrentDb

strSQL = "SELECT mit, mitanr, mitmail " & " FROM qry_belegexemplar " & " WHERE mitfabeIDRef = " & Me!matfabeIDRef.Value & ""

Debug.Print strSQL
Set rs = db.OpenRecordset(strSQL)

Path = OpenFileNameAX("L:Texte-LWHNAHUNTERRICHT", "Datei öffnen")

Do Until rs.EOF
emailTo = Trim(rs.Fields("mitmail").Value)
emailSubject = Trim("Neues Material freigegeben: " & Me!mat.Value)
emailText = "" & "" & "Hallo " & rs.Fields("mitanr").Value & "," & "" _
& "das Material " & "" & matfett & "" & " ist fertig erstellt und steht Ihnen ab sofort zur Verfügung." & "" _
& "Mit freundlichen Grüßen" & "" & "Ihr Team vom Lehrgangswerk Haas" & "" & ""
Set outMail = outApp.CreateItem(olMailItem)
outMail.To = emailTo
outMail.Subject = emailSubject
outMail.HTMLBody = emailText
outMail.Attachments.Add Path
On Error Resume Next
outMail.Display
hinweis = "E-Mail erfolgreich versandt."
rs.MoveNext
Loop

MsgBox hinweis

rs.Close
Set rs = Nothing
Set db = Nothing

If outlookStarted Then
outApp.Quit
End If

Set outMail = Nothing
Set outApp = Nothing

GoTo aus

falsch:
GoTo aus

aus:

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nun wollen wir keine PDF-Dateien mehr versenden, sondern den Empfängern zukünftig einen Link zu der Datei schicken. Dieser Link ist jedes Mal anders. Ich stelle mir also vor, statt eine PDF auszuwählen, soll der Mitarbeiter einen Link in ein Feld einfügen. Dieser Link wird dann in den HTML-BODY der Mail eingelesen.

Ich hoffe, ich habe mich jetzt verständlicher ausgedrückt.

Hat jemand eine Idee?

Viele Grüße
Christin

maikek · 27. Januar 2020

Moin,
im Prinzip machst du das genauso wie mit der Variablen matfett. Der Link kann dann ebenfalls aus einem Formularfeld kommen oder per Dateiauswahldialog ausgelesen werden.
maike

knobbi38 · 28. Januar 2020

Hallo Christin,

für die Lösung ist es doch unerherblich, ob die Information aus einer Inputbox oder einem Variable kommt.
Allerdings muß beachtet werden, daß die PDF-Datei an einem Ort liegt, worauf alles Empfänger auch einen Zugriff haben. Eigentlich keine so gute Idee.

Ulrich

christin84 · 28. Januar 2020

Hallo Ulrich,
da habe ich mich wohl nicht gut genug ausgedrückt. Ich versende derzeit aus Access E-Mails. Genau schaut das wie folgt aus:

In einem Formular gibt es ein Kontrollhäkchen, sobald dieser markiert wird, wird eine E-Mail an mehrere Empfänger ausgelöst. Derzeit wird der Mitarbeiter aufgefordert eine PDF aus unserem Laufwerk auszuwählen. Diese wird dann mit der Mail als Anhang verschickt.

Hier der gesamte Code:
Code:

Private Sub uearberl_AfterUpdate()

If Me.uearberl = True Then GoTo wahr Else GoTo falsch

wahr:
Dim db As DAO.Database
Dim rs As DAO.Recordset

Dim emailTo As String
Dim emailSubject As String
Dim emailText As String
Dim strSQL As String
Dim hinweis As String

Dim outApp As Outlook.Application
Dim outMail As Outlook.MailItem
Dim Path As String
Dim outlookStarted As Boolean

On Error Resume Next
Set outApp = GetObject(, "Outlook.Application")
On Error GoTo 0
If outApp Is Nothing Then
Set outApp = CreateObject("Outlook.Application")
outlookStarted = True
End If

matfett = Me!mat.Value

Set db = CurrentDb

strSQL = "SELECT mit, mitanr, mitmail " & " FROM qry_belegexemplar " & " WHERE mitfabeIDRef = " & Me!matfabeIDRef.Value & ""

Debug.Print strSQL
Set rs = db.OpenRecordset(strSQL)

Path = OpenFileNameAX("L:Texte-LWHNAHUNTERRICHT", "Datei öffnen")

Do Until rs.EOF
emailTo = Trim(rs.Fields("mitmail").Value)
emailSubject = Trim("Neues Material freigegeben: " & Me!mat.Value)
emailText = "" & "" & "Hallo " & rs.Fields("mitanr").Value & "," & "" _
& "das Material " & "" & matfett & "" & " ist fertig erstellt und steht Ihnen ab sofort zur Verfügung." & "" _
& "Mit freundlichen Grüßen" & "" & "Ihr Team vom Lehrgangswerk Haas" & "" & ""
Set outMail = outApp.CreateItem(olMailItem)
outMail.To = emailTo
outMail.Subject = emailSubject
outMail.HTMLBody = emailText
outMail.Attachments.Add Path
On Error Resume Next
outMail.Display
hinweis = "E-Mail erfolgreich versandt."
rs.MoveNext
Loop

MsgBox hinweis

rs.Close
Set rs = Nothing
Set db = Nothing

If outlookStarted Then
outApp.Quit
End If

Set outMail = Nothing
Set outApp = Nothing

GoTo aus

falsch:
GoTo aus

aus:

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nun wollen wir keine PDF-Dateien mehr versenden, sondern den Empfängern zukünftig einen Link zu der Datei schicken. Dieser Link ist jedes Mal anders. Ich stelle mir also vor, statt eine PDF auszuwählen, soll der Mitarbeiter einen Link in ein Feld einfügen. Dieser Link wird dann in den HTML-BODY der Mail eingelesen.

Ich hoffe, ich habe mich jetzt verständlicher ausgedrückt.

Hat jemand eine Idee?

Viele Grüße
Christin

knobbi38 · 28. Januar 2020

Hallo Chrsitin,

wieso postest du den Eintrag #3 nochmal?

Ulrich

christin84 · 28. Januar 2020

Hallo Maike,
vielen Dank für deine Idee. Das würde heißen, der Mitarbeiter müsste, bevor er den Haken bei uearberl setzt in einem zu den Datensatz dazugehörigen Feld den Link eingeben. Dann kann ich das wunderbar einlesen. Leuchtet mir ein. Auf die Idee bin ich überhaupt nicht gekommen. Heißt aber wiederum, ich schaffe in der Tabelle eine weitere Spalte und halte alle Links dann vor, die ich gar nicht benötige, sonder eigentlich nur für den Versand der Mail. Das ist ein kleiner Nachteil. Aber ich denke, nicht so wild. Ich setze das so um. Vielen Dank!

Entschuldigt den doppelten Beitrag von mir. Warum, dass auch immer geschehen ist...

knobbi38 · 28. Januar 2020

Hallo Christin,

du hast doch vorher den Pfad auf die Datei so als Attachment angeben:
Code:

Path = OpenFileNameAX(...)
...
outMail.HTMLBody = emailText
outMail.Attachments.Add Path
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Diese Pfadangabe brauchst du doch nur in einen HTML-Link umformatieren und anstatt als Attachment nun in den HTML-Bodytext schreiben. Alle Informationen sind doch schon vorhanden.

Ulrich

Office: (Office 2016) Mailversand per VBA mit individuellem Link

Mailversand per VBA mit individuellem Link

Mailversand per VBA mit individuellem Link

Mailversand per VBA mit individuellem Link

Mailversand per VBA mit individuellem Link

Mailversand per VBA mit individuellem Link - Similar Threads - Mailversand VBA individuellem

Mailversand mit Kontaktliste geht nicht mehr

Office365 / Outlook: Fehlermeldung beim Schreiben/Versenden von Mails

Mailversand mit CDO

Mailversand aus Access

Microsoft Access Mailversand an mehrere Empfänger

Word etc. will immer Outlook statt GroupWise zum Mailversand

Mailversand führt zu Fehlermeldung - problematische 'Adressform' aus der Autovervoll