Bonjour,  
 
J'ai trouvé ce code qui permet d'envoyer des e-mails avec Lotus Notes en utlisant VBA.  
 
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  
 
 
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, ex: 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.