Envoi de message notes via vba

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 163 fois - Téléchargée 37 fois

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

Ajouter un commentaire Commentaires
Messages postés
7
Date d'inscription
mardi 28 juillet 2009
Statut
Membre
Dernière intervention
27 octobre 2010
1
tu l'enregistre en quelle format ton script vba? Ex: fichier.vba ????
Messages postés
14
Date d'inscription
lundi 27 mars 2006
Statut
Membre
Dernière intervention
13 septembre 2007

Salut, merci pour ce code intéressant. J'aimerais compliqué un peu la chose. Avec Notes je peux envoyer des sms en rentrant à la place de l'adresse internet le numero de telephone@sms: 06xxxxxxxx@sms.

Mais le code donné plus haut ne marche pas, raison de l'erreur, je cite Notes: "A stored form (Memo) is not allowed for TC/LINK-LN".

Quelqu'un peut il m'aider.

Merci.
Messages postés
5
Date d'inscription
jeudi 3 mai 2001
Statut
Membre
Dernière intervention
25 août 2003

Salut.
C'est un prog intéressant.
Sais tu par hasard comment ce genre de mails peut être envoyé , par un serveur de service par exemple où Lotus Notes n'est pas installé
vers une boite Notes sur un serveur distant.

Exemple : des taches sur un serveur de fichiers s'exécutent grâce à des fichiers bat. Si tout ce passe bien --> Ok , sinon exécution de ton prog qui envoie un mail aux administrateurs.

Merci
A+

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.