Discussion :

[yuzuu]

Bonjour,

Je dispose d'un fichier excel qui contient des une colonne nom, numero contrat, montant, date.

Je souhaiterais faire une macro qui envoie un mail via type du genre : Suite a blalbla on voudrait que "NOM" qui a le "CONTRAT" etc ... via outlook
Et dans l'idéal il faudrait que puisse recuperer l'adresse mail via mon repertoire avec le nom et la fonction verifier les noms mais je ne sais pas si cela est possible. il faudrait aussi qu'il envoie le mail que si la colonne "derog" vaut "non"

Apres des heures a essayer de bibouiller en fouillant partout sur internet je suis décourager

merci d'avance pour votre aide

[yuzuu]

Bon j'arrive à envoyer un mail en envoyer la ligne entière mais c'est moche et des que j'essaye de mettre en place une boucle ça marche plus

[Gfacro]

Personnellement je me pencherais plus sur le publipostage de Word qui permettra de faire le courrier le plus joli le plus facilement.



Pour ce qui est de votre demande, pouvez-vous montrer ce que vous avez réussi à faire ?

Il y a beaucoup d exemples sur internet de code pour envoyer des mails avec Outlook, pouvez-vous donner le lien vers le code que vous avez pris en exemple et expliquer quelle difficulté vous avez eu à le transposer ?

[yuzuu]

Alors comme je ne connaissais pas le langage vba j'ai repris depuis le début. les valeurs sont bidons mais c'est l'idée générale

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub Test_mail()
 
 
ActiveSheet.Rows(5).Select 
ActiveWorkbook.EnvelopeVisible = True
 
With ActiveSheet.MailEnvelope
    .Introduction = "bonjour "
    .Item.To = " ActiveSheet.Cells(2,3).Value "
    .Item.Subject = "sujet"
    .Item.Send
End With
End Sub

Quand je fais ça mon mail s'envoie avec la ligne que je souhaite. Par contre quand j'essaye de mettre un for et de remplacer les valeurs par "i" plus rien ne s'envoie.

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
 
Sub Test_mail()
 
For i =  1 to 484
    If  ActiveSheet.Cells(i,3).Value = "NON" then
 
 
ActiveSheet.Rows(5).Select 
ActiveWorkbook.EnvelopeVisible = True
 
With ActiveSheet.MailEnvelope
    .Introduction = "bonjour "
    .Item.To = " ActiveSheet.Cells(i,3).Value "
    .Item.Subject = "sujet
    .Item.Send
End With
 
End If
 
Next i
End Sub

J'ai également essayer des codes plus complexes comme ici : https://excel.developpez.com/faq/?page=Messagerie
cependant rien ne marche.
Dans un premier temps je chercher d'abord a pourvoir transmettre les infos de ma ligne excel j'ai pas besoin que ça soit propre.
Merci d'avance .

[halaster08]

Bonjour,

Tout ce que tu met entre guillemets est considéré comme du texte:
Remplace

Code :

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

.Item.To = " ActiveSheet.Cells(i,3).Value "

par

Code :

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

.Item.To =  ActiveSheet.Cells(i,3).Value

[yuzuu]

J'ai finalement réussi en utilisant le publipostage ! merci beaucoup pour le conseil :)
Bonne journée!

[Gfacro]

Quand je fais ça mon mail s'envoie avec la ligne que je souhaite. Par contre quand j'essaye de mettre un for et de remplacer les valeurs par "i" plus rien ne s'envoie.

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
 
Sub Test_mail()
 
For i =  1 to 484
    If  ActiveSheet.Cells(i,3).Value = "NON" then
 
 
ActiveSheet.Rows(5).Select 
ActiveWorkbook.EnvelopeVisible = True
 
With ActiveSheet.MailEnvelope
    .Introduction = "bonjour "
    .Item.To = " ActiveSheet.Cells(i,3).Value "
    .Item.Subject = "sujet
    .Item.Send
End With
 
End If
 
Next i
End Sub

J'ai également essayer des codes plus complexes comme ici : https://excel.developpez.com/faq/?page=Messagerie
cependant rien ne marche.
Dans un premier temps je chercher d'abord a pourvoir transmettre les infos de ma ligne excel j'ai pas besoin que ça soit propre.
Merci d'avance .

Kiki, le lien qu il a proposé sur developpez.com est très bien. La question n est pas celle d avoir un modèle de départ.

ActiveSheet.Rows(5).Select
Mettre i à la place de 5.


.item.subject ="sujet
Fermer les guillemets. Que le texte soit en rouge est un signe que ca ne fonctionne pas.

Le test sur la dérogation et le nom du destinataire sont tous deux depuis la colonne c, ce n est pas possible, je pense que tu t es trompe de colonne pour le test sur non. Du coup le test n est jamais vrai et rien n est fait.