Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Don Pasquale am 31.03.03 - 11:27:38

Titel: Mail aufrufen und Felder vorbelegen (LScript)
Beitrag von: Don Pasquale am 31.03.03 - 11:27:38

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 ?

Titel: Re:Mail aufrufen und Felder vorbelegen (LScript)
Beitrag von: Axel am 31.03.03 - 11:41:32

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

Titel: Re:Mail aufrufen und Felder vorbelegen (LScript)
Beitrag von: Don Pasquale am 31.03.03 - 11:42:56

 ;D ;D ;D

Einfach Klasse.

Danke Dir


Ciao

Don Pasquale

Titel: Re:Mail aufrufen und Felder vorbelegen (LScript)
Beitrag von: Rob Green am 31.03.03 - 11:43:04

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  :D

Titel: Re:Mail aufrufen und Felder vorbelegen (LScript)
Beitrag von: Don Pasquale am 31.03.03 - 11:54:28

Woow,
ihr seid beide sehr flink

@Rob:
Auch Dir vielen Dank

Ciao

Don Pasquale