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:
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"))
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 :(
Danke an Alle... Ich habs :-)
Für die Nach welt:
Dim obj As NotesEmbeddedObject
Dim session As New Notessession
Dim db As NotesDatabase
Dim ViewAgenda As NotesView
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 = "maxi mustermännchen"
maildoc.Subject = "Teilnahmebestätigung"
Dim rtitem As Variant
Dim fileCount As Integer
Const MAX = 100000
fileCount = 0
'...set value of doc...
Set rtitem = docAgenda.GetFirstItem( "Agenda" )
If ( rtitem.Type = RICHTEXT ) Then
Forall o In rtitem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) _
And ( o.FileSize > MAX ) Then
fileCount = fileCount + 1
Call o.ExtractFile _
( "c:\agenda.pdf") '& Cstr(fileCount) )
Call o.Remove
'Call doc.Save( True, True )
End If
End Forall
End If
Set rtitem = New NotesRichTextItem( maildoc, "Body" )
Set obj = rtitem.EmbedObject(EMBED_ATTACHMENT, "", "c:\agenda.pdf")
maildoc.send(False)
Kill "c:\agenda.pdf"
End Sub