Hallo,
nein, eigentlich soll es ja der Text aus der Zelle "B25" sein. Dazu müsste man das gar nicht dauerhaft abspeicern, sondern besser wäre es sogar, wenn die Datei nach Übergabe ins Outlook wieder gelöscht werden würde. Denn wird sie im Verzeichnis dauerhaft gespeichert, liegt sie ja dort OHNE Passwort-Schutz.
Vorgehensweise wäre eigentlich die:
a) auf Sheet 1 steht mein Brief an Email Empfänger
b) ein Button auf dieser Seite aktiviert den PDF-Druck
c) Das Pdf wird temporär abgelegt/erzeugt
d) die Email in Outlook würde generiert und geöffnet
e) dort kann das PDF Attachement nochmals geöffnet werden und mit Passwortschutz versehen werden
f) schliessen des Attachement's und senden
Das würde die Sache der Archivierung wesentlich vereinfachen, da es nur EINE Passwortgeschützte Datei im Outlook "Gesendet" geben würde, und nicht irgendwelche Dateien lokal ungeschützt.
Noch was anderes an der Stelle:
ich erzeuge ja eine Email zum versenden. Dabei möchte ich nun mehr als eine Zeile als Email-Text übergeben. Bis jetzt gelingt das mit diesem Code Das gelingt mir aber nur mit einer Zeile ("B27"):
Set OutMail = OutApp.CreateItem(0)
' Werte den Eigenschaften zuweisen...
OutMail.To = Sheets(sBlatt).Range("B16")
OutMail.CC = ""
OutMail.BCC = ""
OutMail.Subject = Sheets(sBlatt).Range("B25")
OutMail.Body = Sheets(sBlatt).Range("B27")
Wenn ich Zellen verknüpfe wird eine endlos Zeile als Text gebildet. Also auch suboptimal. Wie könnte ich einen Bereich(z.B. B27:B40) als Text auslesen und zeilenweise übergeben?
Danke & Gruss,
Jürgen
|