Envoi de message notes via vba

Commenter

Contenu du snippet

Vous trouverez ci-dessous un code VBA vous permettant d'envoyer un mail avec une pièce jointe à des personnes, plus d'autres en copie sur Notes, avec cette messagerie déjà ouverte.

Source / Exemple : 


Private Sub CommandButton4_Click()
    Dim Session As Object
    Dim db As Object
    Dim doc As Object
    Dim rtitem As Object
    Dim object As Object
    Dim fs As Object
    Dim Principaux(2) As String
    Dim Copies(3) As String
   
    On Error GoTo TraiteErreur
      
    ' Ouverture d'une session NOTES
    Set Session = CreateObject("Notes.NotesSession")
    Set db = Session.GETDATABASE("", "")
    Call db.OPENMAIL
    ' Création du mail
    Set doc = db.CREATEDOCUMENT()
    doc.Form = "Memo"
    Principaux(0) = "titi@free.fr"
    Principaux(1) = "tutu@free.fr"
    doc.SendTo = Principaux
    Copies(0) = "lulu@free.fr"
    Copies(1) = "lili@free.fr"
    doc.CopyTo = Copies
    doc.Subject = "Passage en urgence"
    Set rtitem = doc.createRichTextItem("Body")
    Call rtitem.appendText("Veuillez trouver ci-joint le fichier ")
    Set object = rtitem.embedObject(1454, "", "C:\Passage Urgence.xls", "")
    ' Envoi du mail
    Call doc.Save(True, True)
    Call doc.SEND(True)
    Set object = Nothing
    Set rtitem = Nothing
    Set doc = Nothing
    Set db = Nothing
    Set Session = Nothing
    ' Suppression du fichier temporaire
    Set fs = CreateObject("Scripting.FileSystemObject")
    fs.deletefile "C:\Passage Urgence.xls"
    Set fs = Nothing
    Exit Sub

TraiteErreur:
    MsgBox "Une erreur est survenue durant l'envoi.", vbCritical, "Passage en Urgence"
    Set object = Nothing
    Set rtitem = Nothing
    Set doc = Nothing
    Set db = Nothing
    Set Session = Nothing
    Set fs = Nothing
End Sub

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.