J'essaie de créer un mémo via une autre boite mail en vb, mais rien y fait.
J'arrive avec ce code à le faire avec ma boite perso, mais quant à ma boite du taf c'est autre chose :
- Code : Tout sélectionner
Private Sub UseLotus()
Dim Session As Object
Dim Dir As Object
Dim Doc As Object
Dim Workspace As Object
Dim EditDoc As Object
On Error GoTo TraiteErreur
'Création de la session Notes
Set Workspace = CreateObject("Notes.NotesUIWorkspace")
Set Session = CreateObject("notes.NOTESSESSION")
Set Dir = Session.GETDATABASE("", "")
Call Dir.OPENMAIL
'Creation d'un document
Set Doc = Dir.CREATEDOCUMENT
Doc.form = "Memo"
Doc.Subject = "Sujet du mail"
Doc.SendTo = "Receiver@mail.com"
Doc.body = "This is the body."
'Affichage du mail dans Lotus Notes
Set EditDoc = Workspace.EditDocument(True, Doc)
Set Session = Nothing
Set Dir = Nothing
Set Doc = Nothing
Set Workspace = Nothing
Set EditDoc = Nothing
Exit Sub
TraiteErreur:
MsgBox "Problème de création du mail", vbCritical, "Error"
Set Session = Nothing
Set Dir = Nothing
Set Doc = Nothing
Set Workspace = Nothing
Set EditDoc = Nothing
End Sub
J'aimerai aujourd'hui atteindre une base avec des parametres proches de ceux-ci :
- /SERVEUR/GROUP/MEMBRES
- mail\Mail1\XXXXX.nsf
Qui peut m'aider ?
Merci
