Mail aufrufen und Felder vorbelegen (LScript)

[Don Pasquale]

Hallo Leute,

ich möchte aus einer Anwendung heraus eine Mail versenden,
dazu möchte ich, dass sich das Mailfenster öffnet und
der Adressat als Wert vorbelegt ist.

Wie macht man so etwas ?

Ciao

Don Pasquale

Dim ws As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As New NotesDatabase
Dim view As New NotesView
Dim doc As NotesDocument
Dim docMail As NotesDocument

Set view = db.GetView("vPersonen")' ...Ansicht aus Backend
Set dc = db.UnprocessedDocuments


Set doc=dc.GetFirstDocument  
While Not (doc Is Nothing)

if Adressliste = "" then
      Adressliste = doc.eMailAdresse(0)  
else
      Adressliste = Adressliste & ";" & doc.eMailAdresse(0)
end if

Wend


und nun ?

[Axel]

Hi,

ich hab mir mal eine Funktion dafür geschrieben. Die Adresse und die Betreffszeile übergebe ich als Parameter.

Function CreateMailMemo(varSendTo As Variant, sSubject As String) As Integer
   
   Dim session As New NotesSession
   Dim workspace As New NotesUIWorkspace
   Dim maildb As NotesDatabase
   Dim maildoc As NotesDocument
   Dim profile As NotesDocument
   Dim sMailAdress As String
   Dim sMailSubject As String
   
   CreateMailMemo = 0
   
   Set maildb = New NotesDatabase("","")
   maildb.OpenMail
   Set profile = maildb.GetProfileDocument("CalendarProfile")
   
   Set maildoc = New NotesDocument(maildb)
   maildoc.Form = "Memo"
   maildoc.Logo = profile.DefaultLogo(0)
   maildoc.Principal = profile.Owner(0)
   maildoc.SendTo = varSendTo
   maildoc.Subject = sSubject
   
   Call workspace.EditDocument(True, maildoc)
   
End Function

Axel

[Don Pasquale]

 

Einfach Klasse.

Danke Dir


Ciao

Don Pasquale

[Rob Green]

auf die schnelle:

   Dim nws As New notesuiworkspace
   Dim ndoc As notesuidocument
   Set ndoc = nws.currentdocument

   Dim WS As New NotesUIWorkspace
   Dim UIDoc As NotesUIDocument
   
   Dim Mailfile As New NotesDatabase( "", "" )
   Call Mailfile.OpenMail()
      
      Set UIDoc = WS.ComposeDocument(MailFile.Server, MailFile.Filepath,"Maskenname")
      Call UIDoc.FieldSetText("ABC","0")    
      Call UIDoc.FieldSetText("XYZ", "Kundenbesuch")      Call UIDoc.GotoField("Body")
      Call UIdoc.Refresh
      Call UIdoc.RefreshHideFormulas
      Call UIdoc.Save
      Call UIdoc.Close
   
edit: ahh..prima...Axel hats schon  

[Don Pasquale]

Woow,
ihr seid beide sehr flink

@Rob:
Auch Dir vielen Dank

Ciao

Don Pasquale