PDf aus Hyperlink als Emailanhang automatisch mitsenden

[Egon12]

Hallo,

hättest du dies gleich geschrieben wäre die Lösung total simpel:

Code:

For i = 12 To 14
    .Attachments.Add Tabelle1.Range("U" & i).Value
Next i

Gruß Uwe

[Mamamia]

Ok, aber geht immer noch nicht

[Egon12]

ich habe gerade gesehen, dass ich in #9 im 2. CodeTag die Zeile 5 vergessen habe zu entfernen. Die hatte ich nur zum Zusammensetzen angelegt.
Falls mal jemand hier nach sowas sucht zur Info.

Gruß Uwe

[Mamamia]

funktioniert jedoch immer noch nicht.... Egon 12 hast du dies geprüft?

[Egon12]

Ja, ich habe es eben zur Sicherheit getestet und bei mir einfach die Pfade der pdf Dateien mit Shift Rechtsklick -->Als Pfad kopieren kopiert und in die jeweilige Zelle eingefügt und zum Schluss die doppelten Hochkommata des Strings entfernt.

objMail aus .display gesetzt --> den Zellinhalt der Zelle dem .Attachments.Add übergeben --> und nachgeschaut. Alles ok.

Schau mal, ob da, was mit den Links in den Zellen falsch ist.
   

Gruß Uwe

[Mamamia]

Kann Dir leider nicht ganz folgen und weiss überhaupt nicht was du damit meinst.

[Egon12]

Hast du dir mal nach meinem genannten Weg die Links in die Zellen eingefügt?

Gruß Uwe

[schauan]

Hallöchen,

funktioniert denn Dein Code ohne Attachments?

LinkPath = Range ("U12").Name

also, ich hatte ja .Text geschrieben und nicht .Name ....

Wenn Du mehrere Anhänge an eine Rechnung haben willst, wäre auch die Frage, wo die dann stehen. In B12 hast Du die Rechnung 01.2026, in B13 die Rechnung 02.2026.
Bei mehreren Anhängen pro Rechnung würden die doch dann in V, W, X usw. eingetragen werden müssen.

[Mamamia]

Ja das habe ich aber mit denm Rest kann ich dir nicht folgen, wo nun was stehen muss im Code und welche Hochkomma du meinst.

[Egon12]

Wenn du den Link so wie ich es dir beschrieben hatte in die Zelle eingefügt hast, wären dir die beiden " (doppelt Hochkommata) am Anfang und Ende aufgefallen. Diese musst du entfernen.

Du siehst ja im Bild, dass es bei mir ohne Probleme funktioniert hatte.

Gruß Uwe