Temat: Agent umożliwiający cykliczne wysyłanie poczty o...
Mateusz Kowalski:
wlasnie o to mi chodzilo:)DZIĘKI!!
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set doc = New NotesDocument( db )
doc.Form = "Memo"
doc.SendTo = "adres e-mail"
doc.Subject = "Here's the document you wanted"
Call doc.Send( False )
DZIAŁA:) jeszcze tylko musze jakoś znaleźć jak wpisać nie tylkko temat a też treść..Mateusz Kowalski edytował(a) ten post dnia 31.12.10 o godzinie 10:13
Cześć,
Jeżeli tylko samą treść to najprościej :
doc.Body = "wpisujesz treść"
Jeżeli chciałbyś formatować tekst użyty w treści, dołączyć załaczniki, obrazki itd. to musisz skorzystać ze zbioru klas NotesRichText.....
Poniżej jeden z przykładów dokumentacji jak korzystać z tych klas.
Dim session As New NotesSession
Dim db As NotesDatabase
Dim memo As NotesDocument
Dim rtitem As NotesRichTextItem
Set db = session.CurrentDatabase
'...set value of doc...
Set memo = New NotesDocument( db )
Set rtitem = New NotesRichTextItem( memo, "Body" )
Call rtitem.AppendDocLink( doc, db.Title )
memo.Subject = "Here's a link to the document"
Call memo.Send( False, "Frank Glennel" )
Pozdrawiam
Marcin M.