Hyperlinks auf Datei als Attachment versenden
Matthias
Ich habe in einer Excel Tabelle in Spalte A E-mail adressen (als Hyperlink) und in Spalte C einen Hyperlink auf PDF Files. Ich möchte nun jeder E-Mail Adresse ein Mail senden (welches ich bereits mit VBA geschafft habe).
Mir fehlt der Code um die dazugehörige Datei (PDF) in Spalte C als Attachment ans Mail anzuhängen.
Spalte A (Als Hyperlink hinterlegt) Spalte C (Als Hyperlink hinterlegt)
mustermann@mail.xy D:\Test\PDF-Datei001.pdf
musterfrau@mail.yz D:\Test\PDF-Datei002.pdf
Die PDF Dateien haben eine Nummer wie oben.
Kann man sowas mit VBA hinkriegen oder muss ich das Attachment für jedes Mail einzeln im Outlook hinzufügen?
Für sachdienliche Hinweise bin Euch sehr dankbar.
Liebe Grüsse
Matti
Der gesamte Code welches mir das Mail generiert:
Sub Excel_Serial_Mail()
Dim MyOutApp As Object, MyMessage As Object
Dim i As Long
Dim Text, Sig As String
Text = "Liebe Geschäftskunden
Es ist soweit! bla bla bla
Liebe Grüsse
"
'Start der Sendeschleife an 4 Empfänger
For i = 1 To 4
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
.Display
'Die Empfänger stehen in Spalte A ab Zeile 1
.To = Cells(i, 1) 'E-Mail Adresse
.Subject = "Musterbrief" '"Betreffzeile"
Sig = .HTMLBody
'If Err.Number 0 Then
'Err.Clear
'End If
'On Error GoTo Fehler
.HTMLBody = ""
.HTMLBody = Text & Sig
'Hier wird die Mail angezeigt
.Display
'Hier wird die Mail gleich in den Postausgang gelegt
'.Send
End With
'Objectvariablen leeren
Set MyOutApp = Nothing 'CreateObject("Outlook.Application")
Set MyMessage = Nothing 'MyOutApp.CreateItem(0)
'Sendepause einschalten
'Outlook kann die Aufträge nicht schnell genug verarbeiten
Application.Wait (Now + TimeValue("0:00:05"))
Next i
End Sub