Discussion :

[benitototti35]

Bonjour,

J'ai fait une base de données de prospects sous excel assez classique.
En colonnes comme suit:
Nom/adresse/mail/date premier appel/date dernier mail/date relance.

Avec une mise en forme conditionnelle, la ligne d'un prospect est verte quand tout est renseigné, et passe au rouge quand date de relance = date aujourd'hui.

J'aimerai ajouter à cela un envoi de mail automatique via Outlook, avec une pièce jointe comme ceci:

" Cher [recherche valeur colonne A ],
Suite à mon dernier mail du [recherche valeur dans colonne E],..........
blablablablabla.
Cordialement."

Et que si 4 clients soient à relancer le même jours, 4 mails soient envoyés et non pas 1 avec les 4 adresses en destinataire.

J'espère que ça fait pas trop et que c'est assez clair,
merci beaucoup d'avance pour votre aide.

[NELAIN]

voici une ébauche l'envoi est automatique donc il faut prévoir un endroit faisant référence des pj

Outlook renvoie en auto un message de confirmation d'envoi je n'ai pas trouvé comment passé outre alors si tu trouve je suis preneuse.

j'espère ça va t aider

carina

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
35
36
37
public Sub Envoyer()
 
 
Dim i As Integer
 
Dim test As Variant
 
Dim dest As String, LibDest As String
 
Dim rep As String
 
 
        For i = 1 To NbLigne
 
                Range("a" & i).Select
 
            If (Range("a" & i)) ….. Then              
 
                'recupere les dest, ligne, dest
 
                dest = Range("a" & i)
 
                LibDest = Range("c" & i)
 
                 'envoi du mail
 
                 SendMail dest, i, LibDest
 
                 'SendKeys "%{s}", True       
 
                End If
 
            End If
 
        Next
 
 End Sub

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
Public Sub SendMail(ByVal strDest As String, ByVal i As Integer, ByVal LibDest As String)
 
Dim MonOutlook As Object
 
Dim MonMessage As Object
 
Dim j  As Integer
 
Set MonOutlook = CreateObject("outlook.application")
 
Set MonMessage = MonOutlook.CreateItem(0)
 
 
On Error GoTo Err_SendMail
 
 
MonMessage.Attachments.Add ‘le chemin et le nom de la pj 
 
 
 
MonMessage.To = strDest
 
MonMessage.Subject = 'objet du mail
 
MonMessage.Body = "Cher " & dest & " Suite à mon dernier mail du " & " ....."
 
 
MonMessage.Send
 
 
Set MonOutlook = Nothing
 
 
 
Exit_SendMail:
 
    Exit Sub
 
 
 
Err_SendMail:
 
     Err.Description
 
     Resume Exit_SendMail
 
 
 
End Sub

[fred65200]

bonjour,

pour éviter de cliquer sur Oui lors de l'envoi en automatique de mail, vous pouvez utiliser l'utilitaire ClickYes

EDIT re bonjour,
Tu peux aussi visiter ce lien
Cordialement