Envoie d’un mail automatique sous condition

**pythfred** · 08/03/2012, 07h52

* Bonjour *

Aujourdhui j'utilise ce code pour envoyer des mails par l'intermédiaire d'un bouton mais j'aimerais que ca soit automatisé ,est il possible d'envoyer un mail sous condition?

exemple si cellule F2+G2 remplie envoyer mail en insèrant le texte de ces cellules dans le corps du message et une fois envoyer passer a F3+G3....
si quelqu'un a une solution je suis preneur!
salutations

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
Sub Mail_Text_From_Txtfile_Outlook()
'Working in Office 2000-2010
Dim OutApp As Object
Dim OutMail As Object
 
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
 
On Error Resume Next
With OutMail
.To = "toto@.net"
 
.CC = "tata@.com"
 
.BCC = 
 
.Subject = "tata"
 
.Body = "demande d'intervention"
 
.Send
End With
On Error GoTo 0
 
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

* Merci *

**Benoit Schwob** · 08/03/2012, 08h55

Bonjour pythfred,

L'idée est de mettre une boucle d'envoi "autour" de la macro que tu as déjà.
Ce serait quelque chose comme ceci, que tu déclencherais après avoir sélectionné les lignes sur lesquelles du souhaites faire des envois éventuels :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Envoi_en_série()
 
Dim cell As Range
 
For Each cell In Selection
    If Not IsEmpty(Range("F" & cell.Row)) And Not IsEmpty(Range("G" & cell.Row)) Then
        Call Mail_Text_From_Txtfile_Outlook
    End If
Next
 
End Sub

A partir de là, il y a qu'à régler quelques tonnes de détails (adresses mail des destinataires, Cc et Bcc éventuels, objet et corps du mail, etc...) On trouve des tutos ou des exemples pour ça assez facilement par ici.

Et il reste la question classique de l'alerte sécurité Windows quand une macro essaie d'envoyer un mail. Ca, ça se contourne avec un ClickYes comme celui de Context-Magic.

Benoît

**pythfred** · 08/03/2012, 12h21

je n'arrive a faire tourner ta Macro avec le mienne !
comment fait tu pour l'intègrer?

merci

**pythfred** · 12/03/2012, 06h47

Y a-t-il une âme charitable pour m’aider???

d'avance merci!

**sdispro** · 12/03/2012, 12h43

Salut,

essai cela

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
If Cells(4, 2) = "" Then
If Range(g, 2) <> "" Then
If Range(h, 2) <> "" Then
 
 
 
     ActiveSheet.Range("b11:k50").Select ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True
 
With ActiveSheet.MailEnvelope
 
    .Item.To = "ton mail.COM"
    .Item.Subject = Range(g, 2)
    .Item.Send
 
End With
 
 
    End If