Domino 9 und frühere Versionen > ND8: Entwicklung

LS mail + Attachment

(1/2) > >>

cookiethecake:
Hey Leute ich bin hier echt am durchdrehen!.... Die Tastatur machts nicht mehr lange mit..

Ziel: Ich will eine mail verschicken mit Attachement. Das Attachement soll aus einem anderen Dokument kommen.

Das habe ich:


--- Code: ---        Dim obj As NotesEmbeddedObject
Dim obj2 As NotesEmbeddedObject

Dim session As New Notessession
Dim db As NotesDatabase
Dim ViewAgenda As NotesView
Dim dcAgenda
Dim docAgenda As NotesDocument


Set db = session.CurrentDatabase
Set maildoc = New NotesDocument(db)
Set viewAgenda = db.GetView("Agenda")
        Set docAgenda = viewAgenda.GetFirstDocument
        maildoc.Form = "Memo"
maildoc.SendTo = "xxxxx xxxxx"
maildoc.Subject = "Teilnahmebestätigung"


Set rtitem = New NotesRichTextItem( maildoc, "Body" )
        Set obj = rtitem.EmbedObject(EMBED_ATTACHMENT, "", docAgenda.GetAttachment("Anleitung - Mailarchivierung.pdf"))

--- Ende Code ---

In docAgenda ist das Dokument was ich anhängen will..
Mein Code sieht mittlerweile aus wie Arsch weil ich da am rumprobieren bin wie n Ochs vorm Berg!!!

Jedes mal der verdammte Type missmatch :(

ascabg:
Hallo,


--- Zitat ---Jedes mal der verdammte Type missmatch
--- Ende Zitat ---
Und wann kommt dieses "verdammte Type missmatch"?


Andreas

cookiethecake:
letzte Zeile-

Driri:
EmbedObject erwartet an der Stelle auch einen String, Du übergibst aber ein Objekt. Der Fehler ist also nur logisch.

Meiner Erfahrung nach funktioniert so etwas nur, wenn man die Datei aus dem Ursprungsdokument auf die Festplatte löst, dann an der neue Dokument anhängt und anschließend wieder von der Platte löscht.

marschul:
Oder Du machst ein appendrtitem und nimmst das ganze Quell-Richtextfeld mit dem Anhang mit, das wäre wohl am einfachsten, würde aber auch alles ggf. Vorhandene rund um den Anhang weiterleiten...

Navigation

[0] Themen-Index

[#] Nächste Seite