PDf aus Hyperlink als Emailanhang automatisch mitsenden

[Mamamia]

Guten Morgen,

Ich möchte, wenn ich eine Zahlungserinnerung sende, die dazugehörige Rechnung oder kann auch meherere Rechnungen sein automatisch im Email anhängen.
Hyperlink funktioniert wenn ich diesen anklicke.

jedoch wenn ich diesen Code unten ausführen möchte sagt Excel dass kein Hyperlink in Zelle N12 gefunden wurde.

Ausserdem kann es auch sein dass meherere Rechnungen angehängt werden sollen.

Finde nirgends ein Video oder eine Erklärung in welchem dies erklärt wird.

PDf besteht ja bereits und muss nicht neu erzeugt werden.

Vielleicht kann mir jemand helfen wo der Fehler liegt. und wenn mehrere Rechnungen offen sind wie ich dies dann lösen muss damit alle Rechnungen angehängt werden.

Liebe Grüsse Mamamia

Code:

Sub Zahlungserinnerung_senden()
Dim objOutlook As Object
Dim objMail As Object
Dim LinkPath As String
Dim HyperlinkCell As Range
   
Set HyperlinkCell = Range("N12") ' Zelle mit dem PDF-Hyperlink
If HyperlinkCell.Hyperlinks.Count > 0 Then
        LinkPath = HyperlinkCell.Hyperlinks(1).Address
    Else
        MsgBox "Kein Hyperlink in " & HyperlinkCell.Address & " gefunden!"
        Exit Sub
    End If
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
  .To = Range("Empfänger_Zahlungserinnerung")
.Subject = Range("Betreff_Zahlungserinnerung")
  .Body = Range("Text_Zahlungserinnerung")
        .Attachments.Add LinkPath ' Datei aus Hyperlink
        .send
       
End With
End Sub

[Ralf A]

Moin,

der Code tut eigentlich das, was er soll. Lediglich bei mehreren Anhängen müsstest Du was ändern. Die ganzen Links können ja nicht in N12 stehen. Wo stehen denn die anderen? Oder steht in N12 nur kommaseparierter Text? Oder ganz anders?

[schauan]

Hallöchen,

wenn Du den Hyperlink per Formel erzeugst, wird auch nichts gefunden

[Mamamia]

Hallöle,

=HYPERLINK(U12;B12) Das ist meine Formel in welchem der Hyperlink erzeugt wird.... was  müsste ich dann ändern damit es die Zelle N12 wo dieser Hyperlnik drin steht in VBA funktioniert?

Alle Hyperlinks welche möglich wären stehen in N12-N23.

Grüsse Mamamia

[schauan]

also, die Formel unterscheidet ja zwischen tatsächlichem Link und angezeigten Text. Wenn Deine Formel den Link aus U12 holt, dann hole ihn per VBA auch aus U12. Dort ist es allerdings vermutlich auch ein Text? Du könntest den dann einfach z.B. mit
LinkPath = Range("U12").Text
übernehmen.

[Mamamia]

ok klingt gut, jedoch wie binde ich dies in meinen Code ein?

[schauan]

... Na dirt, wo LinkPath =... steht.