Envoie auto mail à plusieurs destinataires

[calimero]

Bonjour,

J'ai une feuille appelée "information" dans laquelle se trouve un bouton "diffusion". En cliquant sur celui ci je souhaite envoyer ce tableau
à des destinataires dont les adresses se trouvent de H1 à H6 (6 destinataires fixes) sur la même feuille excel.
Ne connaissant que les macro format xl4 merci de votre aide
et de votre temps .

thierry

 

[michel]

bonsoir Thierry

j'espere que ce lien pourra t'aider

Lien supprimé


bonne soiree
MichelXld

 

[calimero]

Bonjour,


Merci Michel . La macro fonctionne parfaitement.


J'aimerai que l'envoi du mail se fasse automatiquement (ne pas à avoir à cliquer sur envoyer sous outlook).

Merci ,

Thierry

 

[calimero]

Bonjour,


Merci Michel . La macro fonctionne parfaitement.


J'aimerai que l'envoi du mail se fasse automatiquement (ne pas à avoir à cliquer sur envoyer sous outlook).

Merci ,

Thierry

 

[michel]

bonsoir Thierry

j'espere que ces 3 liens pourront t'aider

Lien supprimé

Lien supprimé

Lien supprimé


bonne soiree
MichelXld

 

[calimero]

Bonjour,

C'est décidé , je vais plancher avec un bouquin sur les macro VBA

car je sèche complêtement . La solution est surement dans les 3 liens

que tu m'as donné mais je ne sais pas comment les adapter

à la macro initiale.

Je te joins donc cette macro en espérant que tu pourras m'aider à la

finaliser par l'envoi auto du mail.Elle se rapporte à module 1.

Je fonctionne avec excel 2000 et outlook 2000.


Merci de passer un peu de temps pour m'aider.

Bien cordialement,

Thierry

Sub diffusion()

Dim classeur As String, Destinataires As String
classeur = ActiveWorkbook.FullName
Dim message As String
Dim nouveau_mail As New Outlook.Application
Dim objet_mail As MailItem
Dim X As Byte, i As Byte

Set nouveau_mail = New Outlook.Application
Set objet_mail = nouveau_mail.CreateItem(olMailItem)

'dans cet exemple : la liste des destinataires se trouve dans
'la colonne A de la feuille "personnalisation" , à partir de la cellule A1

'recuperer le numero de la derniere ligne non vide dans la colonne A
X = Sheets("Information incident").Range("AJ65536").End(xlUp).Row

For i = 2 To X
Destinataires = Destinataires & Sheets("Information incident").Cells(i, 36) & ";"
Next i

With objet_mail
.To = Destinataires
.Subject = "INFORMATION INCIDENT"
.Attachments.Add (classeur)
.Display
.Send
End With
End Sub