Hi,
mit der Formelsprache kann mach kein Attachment anhängen, wenn ein Dokument nicht geöffnet ist.
Also musst Du einen Scriptagenten machen.
Beispiel:
dim session as NotesSession
dim db as NotesDatabase
dim maildoc as NotesDocument
Dim rtitem As NotesRichTextItem
Dim object As NotesEmbeddedObject
dim datei as string
set session = New NotesSession
set db = session.CurrentDatabase
datei = "c:\temp\namederdatei.pdf" '// ANPASSEN
'Prüfe ob Datei vorhanden ist
if Dir$(datei) = "" then
Print "Datei nicht vorhanden"
Exit Sub 'Abbruch, da Datei nicht vorhanden
end if
'Erstelle Mail
set maildoc = db.CreateDocument
maildoc. Form = "Memo"
maildoc.SendTo = "Name des Empfängers" '// ANPASSEN
'Hänge Datei an
Set rtitem = New NotesRichTextItem( maildoc, "Body" )
Set object = rtitem.EmbedObject( EMBED_ATTACHMENT, "", datei)
'Sende Mail
call maildoc.Send(false)
Das sollte hinhauen...
Andreas