Envoie e-mail + PJ via excel à adapter

Bonjour,

J 'ai une macro vba qui fonctionne bien avec Outlook Envoie e-mail + PJ via excel très bien mais je souhaiterais que cela fasse la même chose avec lotus notes car j ai essayé exactement la même chose sa ne marche pas :cry:

Merci les pro et voici mon code

Code:

---

1 2 3 4 5 6 7 8

Sub Envoi() EnvoiEmail Adresse:=Range("B1"), _ Objet:=Range("B2"), _ Corps:=Range("B3"), _ PJ:=Range("B4"), _ Cc:=Range("B5"), _ Bcc:=Range("B6") End Sub

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Office2007OutLook() ' Contribution de PC512 pour Office 2007 ' Initialisation des tableaux de touches pour Office Outlook 2007 ' Pour une pièce jointe TouchesPJ(0) = 2 ' Nombre de touches nécessaires TouchesPJ(1) = "%s" ' Appel du menu Insertion par la touche Alt-i TouchesPJ(2) = "jf" ' appel du sous-menu fichier par la touche f ' Pour l'envoi du mail TouchesEnvoi(0) = 1 ' Nombre de touches nécessaires TouchesEnvoi(1) = "%v" 'Envoi du message avecAlt-v End Sub

---

Bonjour,

Cette solution fonctionne depuis plusieurs années :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78

Sub EnvoyerUnMailNotes(ObjetDuMail As String, MessageDuMail As String, AdresseMail As String)   ' Par un auteur inconnu du MPFE   Dim ObjNotesSession As Object Dim ObjNotesMailFile As Object Dim ObjNotesDocument As Object Dim ObjNotesField As Object Dim SendMail As Boolean   Dim Msg As String   Dim EMailCCTo As String Dim EMailBCCTo As String       On Error GoTo SendMailError EMailCCTo = "" '' Optional EMailBCCTo = "" '' Optional   ' Etablissement de la connection à Notes Set ObjNotesSession = CreateObject("Notes.NotesSession")   ''Establish Connection to Mail File '' .GETDATABASE("SERVER", "FILE") Set ObjNotesMailFile = ObjNotesSession.GETDATABASE("", "")   'Ouverture du Mail ObjNotesMailFile.OPENMAIL   'Création d'un nouveau mémo Set ObjNotesDocument = ObjNotesMailFile.CREATEDOCUMENT   ''Create 'Subject Field' Set ObjNotesField = ObjNotesDocument.APPENDITEMVALUE("Subject", ObjetDuMail)   ''Create 'Send To' Field Set ObjNotesField = ObjNotesDocument.APPENDITEMVALUE("SendTo", AdresseMail)   ' Adresser en copie Set ObjNotesField = ObjNotesDocument.APPENDITEMVALUE("CopyTo", EMailCCTo)   ' Adresser en copie cachée Set ObjNotesField = ObjNotesDocument.APPENDITEMVALUE("BlindCopyTo", EMailBCCTo)   ' Corps du message Set ObjNotesField = ObjNotesDocument.CREATERICHTEXTITEM("Body")   With ObjNotesField .APPENDTEXT MessageDuMail End With   ' Attacher le fichier --1454 indique une attachement de fichier ObjNotesField = ObjNotesField.EMBEDOBJECT(1454, "", ActiveWorkbook.FullName)   ' Envoi de l'email ObjNotesDocument.SEND (0)   ''Release storage Set ObjNotesSession = Nothing Set ObjNotesMailFile = Nothing Set ObjNotesDocument = Nothing Set ObjNotesField = Nothing   ''Set return code SendMail = True Exit Sub   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 Sub

---

N'ayant plus accès à un serveur Domino, je ne pourrais tester en cas d'anomalie, mais il ne devrait pas y avoir de problème même avec des versions récentes de Lotus Notes.

Cordialement.