Application Outlook dans Excel

Version imprimable

Bonjour à tous,

Je souhaiterais sous votre aide envoyer un mail enregistré à tous les membres de mon association. De ce fait, j'ai dans une colonne excel tous les mails des adhérents et je voudrais via vba charger le mail enregistrer et l'envoyer à tous mes destinataires, en envoyant un mail par personne pour diminuer les risques de rejet de spam par les serveurs messagerie.

J'ai commancé à écrire ça mais cela m'implique une erreur :
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 Sub Send_Mail_Outlook() 'Il faut activer la référence "Microsoft Outlook Library" Avant de lancer cette macro, ' Dans l'éditeur VBA: Faire Menu / Tools / Reference / Cocher "Microsoft Outlook Library" Dim ObjOutlook As New Outlook.Application Dim ObjOutlookmail As MailItem Dim NomFichier As String Dim i As Integer For i = 0 To 5000 Step 1 Set ObjOutlook = New Outlook.Application Set oBjMail = ObjOutlook.GetOpenFilename("C:\Users\Anthony\Desktop\CXN n82 + Fiche Adhésion 2014.msg") With oBjMail .To = Cells(i, 1) ' le destinataire .Send ' '.Send' pour envoyer sans vérification End With Next End Sub
Je n'arrive pas à trouver la procédure pour ouvrir un mail préenregistré. Je vous remercie par avance pour votre aide,

Bien cordialement,

Anthony

13/01/2014, 15h51
parmi

Bonjour,

Est-ce vraiment nécessaire d'ouvrir un message pré-enregistré ?
Tu pourrais le recréer à chaque passage...
Je ne suis pas certain que tu puisses y arriver avec Outlook...

Bonjour,

C'est bon j'ai résolu mon problème. Le code est le suivant :

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
 
Sub Send_Mail_Outlook()
 
    'Il faut activer la référence "Microsoft Outlook Library" Avant de lancer cette macro,
    'Dans l 'éditeur VBA: Faire Menu / Tools / Reference / Cocher "Microsoft Outlook Library"
 
    Dim i, n As Integer
    Dim Destinataire As String
    Dim Eml As MailItem
 
    'Calcul du nombre de mails
    n = 0
    For Each Cell In Sheets(1).Columns(1).Cells
    If IsEmpty(Cell) = False Then n = n + 1
    Next Cell
 
    For i = 1 To 3 Step 1
 
        Set oBjMail = GetObject(, "Outlook.Application")
        If oBjMail Is Nothing Then Err.Raise ERR_OUTLOOK_NOT_OPEN
        Set Eml = oBjMail.CreateItemFromTemplate("C:\Users\Anthony\Desktop\CXN n82 + Fiche Adhésion 2014.msg")
 
        With Eml
             .To = Range("A" & i).Value    ' le destinataire
             .Send  '   Ici on peut mettre '.Send' pour l'envoyer sans vérification
        End With
 
        Application.StatusBar = "Merci de patienter : " & i & " mails envoyés"
        Application.Wait Now + TimeValue("00:00:05")
        Application.StatusBar = False
 
     Next
 
End Sub

bonne journée à tous. :ccool: