Résolu: Piloter 'Lotus Notes 6.5' et accusé de réception. - VB/VBA/VBS - Programmation
Marsh Posté le 10-03-2010 à 18:57:00
Bonjour,
Je cherche désepérement une version 5 de Lotus Notes pour reprogrammer un logiciel de gestion de dossiers médicaux.
Qui pourrait me l'adresseur (ou sur quel site le télécharger ?)
Merci++++
Marsh Posté le 07-08-2006 à 10:22:49
Bonjour,
Mon outil de messagerie est Lotus Notes 6.5.
Je voudrais pouvoir piloter Notes depuis Excel avec VBA, j'ai trouvé du code qui permet d'envoyer un mail avec P.J. le voici:
---------------------------------------------------------------------
Function SendMail()
'mpep, auteur inconnu
'On Error GoTo SendMailError
Dim EMailSendTo
Dim EMailCCTo
Dim EMailBCCTo
Dim EmailSubject
Dim bjNotesSession
Dim Msg
' EMailSendTo = "put_an@address.here" '' Required - Send to address
EMailSendTo = "Francois POIRIER/CNES/GRT/FR" '' Required - Send to address
EMailCCTo = "" '' Optional
EMailBCCTo = "" '' Optional
''Establish Connection to Notes
Set objNotesSession = CreateObject("Notes.NotesSession" )
''Establish Connection to Mail File
'' .GETDATABASE("SERVER", "FILE" )
Set objNotesMailFile = objNotesSession.GETDATABASE("", "" )
''Open Mail
objNotesMailFile.OPENMAIL
''Create New Memo
Set objNotesDocument = objNotesMailFile.CREATEDOCUMENT
''Create 'Subject Field'
Set objNotesField = _
objNotesDocument.APPENDITEMVALUE("Subject", EmailSubject)
''Create 'Send To' Field
Set objNotesField = _
objNotesDocument.APPENDITEMVALUE("SendTo", EMailSendTo)
''Create 'Copy To' Field
Set objNotesField = _
objNotesDocument.APPENDITEMVALUE("CopyTo", EMailCCTo)
''Create 'Blind Copy To' Field
Set objNotesField = _
objNotesDocument.APPENDITEMVALUE("BlindCopyTo", EMailBCCTo)
''Create 'Body' of memo
Set objNotesField = _
objNotesDocument.CREATERICHTEXTITEM("Body" )
With objNotesField
.APPENDTEXT "This e-mail is generated by an automated process."
.ADDNEWLINE 1
.APPENDTEXT "Please follow established contact " & _
"procedures should you have any questions."
.ADDNEWLINE 2
End With
''Attach the file --1454 indicate a file attachment
objNotesField = _
objNotesField.EMBEDOBJECT(1454, "", ActiveWorkbook.FullName)
'* Demande d'accusé de réception pour le message
objNotesDocument.ReturnReceipt = "1"
''Send the e-mail
objNotesDocument.Send (0)
''Release storage
Set objNotesSession = Nothing
Set bjNotesSession = Nothing
Set objNotesMailFile = Nothing
Set objNotesDocument = Nothing
Set objNotesField = Nothing
''Set return code
SendMail = True
Exit Function
SendMailError:
Msg = "Error # " & Str(Err.Number) & " was generated by " _
& Err.Source & Chr(13) & Err.Description
MsgBox Msg, , "Error", Err.HelpFile, Err.HelpContext
SendMail = False
End Function
-----------------------------------------------------------
Ce code semble souvent utilisé et fonctionne parfaitement, par contre je voudrais pouvoir ajouter une demande d'accusé de réception, après de multiples recherches je n'ai encore rien trouvé.
Par avance merci pour vos réponses.
Cordialement
En rouge la ligne de code pour demander un A.R.
PIFA
Message édité par pifa le 09-08-2006 à 13:03:50