Discussion :

[MEUCORACAO]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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...

[MEUCORACAO]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.