rufo Pas me confondre avec Lycos! | Oui, via OLE, ex pour envoyer un mail :
Code :
- 'ouvre une session mail Lotus Notes et configure le mail à envoyer
- 'Set oSession = CreateObject("Notes.NotesSession" )
- 'Set oDB = oSession.GetDatabase("", "" )
- 'Call oDB.OpenMail
- 'Set oDoc = oDB.CreateDocument
- 'Call oDoc.ReplaceItemValue("SendTo", "test@test.fr" ) 'regler ici le nom du destinataire
- 'Call oDoc.ReplaceItemValue("Subject", "mon petit titre" )
- 'Le corps du mail
- 'Set oRichTextItem = oDoc.CreateRichTextItem("Body" )
- 'sMsg = "Mon petit message..." & vbCrLf & vbCrLf
- 'Call oRichTextItem.AppendText(sMsg)
- 'envoi
- 'oDoc.SaveMessageOnSend = True
- 'Call oDoc.Send(False)
- 'Set oSession = Nothing
|
Autre solution, plus risquée, utiliser AutoIt, mais là, faut pas que l'utilisateur touche la souris ou le clavier pendant l'exécution du script... ---------------
Astres, outil de help-desk GPL : http://sourceforge.net/projects/astres, ICARE, gestion de conf : http://sourceforge.net/projects/icare, Outil Planeta Calandreta : https://framalibre.org/content/planeta-calandreta
|