MACRO ENVOIE PLUSIEURS MAIL-Possible??

H

Hieu

XLDnaute Impliqué

• 3 Mars 2017

• #2

Salut,

Une idée :

VB:

Sub mlkm()
For i = 1 To 2
    Call UseOutlook(Range("b4").Offset(i, 0), Range("a4").Offset(i, 0))
Next i
End Sub

et :

VB:

Sub UseOutlook(adresse as String, fichier as String)
  Dim MonOutlook As Object
  Dim MonMessage As Object
  Set MonOutlook = CreateObject("Outlook.Application")
  Set MonMessage = MonOutlook.createitem(0)
  MonMessage.to = adresse
  ' MonMessage.cc =
  ' MonMessage.bcc =
  MonMessage.Subject = "perso"
  MonMessage.Attachments.Add fichier
  MonMessage.body = "Je vous envoie un message idiot."
  MonMessage.send
  Set MonOutlook = Nothing
End Sub

Edit : ajout des types de variables, dans la subroutine

 

Pièces jointes

• MACRO_Envoie_Mail_v0.xlsm

  13.9 KB · Affichages: 36

Dernière édition: 4 Mars 2017

Vote positif 0 Vote négatif

T

Tatiana29

XLDnaute Occasionnel

• 3 Mars 2017

• #3

Merci je vais tester!

 

Vote positif 0 Vote négatif

T

Tatiana29

XLDnaute Occasionnel

• 3 Mars 2017

• #4

Merci,je vais tester votre macro!
j'ai aussi testé un code dans le fichier joint qui a l'air de marcher!!
Pensez vous qu'il est possible de supprimer la validation outlook

 

Pièces jointes

• MAcro envoie mail.xlsm

  26.3 KB · Affichages: 35

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 3 Mars 2017

• #5

Bonjour à tous
Je profite de ce post pour vous soumettre quelque chose développé il y à maintenant quelques temps à des fins professionnelles, et qui peut intéresser, me semble t'il, quelques un d'entre vous.
Le fichier joint ( avec sa structure) va vous permettre d'envoyer à plusieurs personnes et en un seul coup
un mail et des fichiers en pièce jointes (petit plus si le corps du texte est commun à tous , vous pourrez modifier un éléments de ce texte par mail)
Il manque sans doute quelques explications, mais....

 

Pièces jointes

• Mails en nombre.zip

  35.4 KB · Affichages: 54

Vote positif 0 Vote négatif

T

Tatiana29

XLDnaute Occasionnel

• 3 Mars 2017

• #6

Merci,savez vous ce qu'il faut paramétrer pour ne pas avoir un message à l'envoie de chaque mail?

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 3 Mars 2017

• #7

En ce qui me concerne pas de message,
de quel message parles-tu

 

Vote positif 0 Vote négatif

H

Hieu

XLDnaute Impliqué

• 4 Mars 2017

• #8

Salut, tous,

Je n'ai pas de messages, non plus.
Peux-tu poster une image ?

 

Vote positif 0 Vote négatif