Résolu: Piloter 'Lotus Notes 6.5' et accusé de réception.

Résolu: Piloter 'Lotus Notes 6.5' et accusé de réception. - VB/VBA/VBS - Programmation

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
Reply

Marsh Posté le 07-08-2006 à 10:22:49   

Reply

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++++

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed