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.