Mailitem - Dateianhänge übertragen

[datekk]

Hi,

ich möchte ein Mailitem aus einer gespeicherten Datei öffnen. Dabei ist die gespeicherte Datei eine Art Vorlage. Diese Vorlage enthält den Mailtext, ggf. Empfänger und Dateianhänge - versteckte und normale.

Nun möchte ich, dass die Mailanhänge (Attachments) mitsamt ihren jeweiligen Properties von dem geöffneten Mailitem auf ein neues Mailitem übertragen werden. Leider gelingt mir dies noch nicht.

So war die Idee:

Code [Auswählen] Erweitern


    Dim Attachment As Outlook.Attachment

    For Each Attachment In OUVorlage.Attachments
        OUMailNeu.Attachments.Add Attachment
    Next


..klappt aber nicht.. Kann jemand helfen?

[el_gomero]

Hallo,

ich würde die notwendigen Anlagen ganz normal im Dateisystem ablegen. Für das Anfügen würde ich eine Tabelle vorhalten, die je Vorlage mail die Pfade und Dateinamen der notwendigen Anlagen vorhält.

Somit wäre der Code auch Aktualisierung einer oder mehrerer Anlagen nicht anzupassen.

btw - die Fehlerbeschreibung "klappt aber nicht" ist eher von der besch... eidenen Art.

[datekk]

Hallo Jürgen,

besten Dank, aber es soll schon so oder ähnlich laufen wie von mir gewünscht. Es muss möglich sein, die Mailanhänge und Properties aus "der Vorlage" auszulesen im meinetwegen zwischenzuspeichern.

[datekk]

So, ich habe es schon geschafft, die Anhänge mit der .SaveAs Methode zwischenzuspeichern und in die neue Mail zu übertragen. Manche Mailanhänge stellen aber keine Anhänge dar, sondern sind z.B. eingebettete Bilder. Diese Anhänge besitzen, so glaube ich, bestimme Properties... Hier geht es um Schemas, aber leider kann ich damit nichts anfangen.

Wenn ich eine versteckte/eingebettete Datei in ein Mailobjekt einfügen will, so kann ich mittels PropertyAccessor eine Property setzen. Das geht so: .Attachments.Item(i).PropertyAccessor.SetProperty "http://schemas.microsoft.com/mapi/proptag/0x3712001F", strTag -- wobei strTag ein Tag ist, mit dem ich die Datei innerhalb des Bodys ansprechen und darstellen kann.

Die Frage ist nur, wie kann ich solch eine Eigenschaft aus einer bestehenden Mail bzw. einem bestehendem Attachment auslesen und übergeben? Auch GetProperty verlangt ein Schema... aber das wollte ich doch auslesen. Weiterhin brauche ich dann wohl auch das/den Tag..

Kann jemand behilflich sein?

[datekk]

So, selbst gelöst...

ein 'Set MailitemNeu = MailitemAlt.copy' erledigt einfach ALLES!

Perfekt. Und danke an Alle, die sich drüber Gedanken gemacht haben. ***Gelöst***