Envoi d'un mail par maro

[copayo]

Bonjour,

je souhaiterais créer une macro qui enverrai un mail standard (lorsque le fichier de travail est termine)

Le petit plus serait de lire l'objet, le corps, et les destinataires dans des cellules excel.

Merci par avance pour votre collaboration

 

[PascalXLD]

Bonjour

Tiens va voir ce fil tu as plusieurs solutions

Lien supprimé

Bon courage

 

[copayo]

merci pascal c exactement ce que je cherchais.

par contre je galère pour avoir plusieurs destiantaires.

j'ai une zone environ 10 cellule qui contient ou pas des adresses mail et j'aimerais y faire référence. Ecrit comme ça = bug !!!

AdresseMail = Sheets('data').Range('I13:I23')

Sub envoimail()

Dim Sujet As String, AdresseMail As String, Message As String
Dim NbreRapport As Byte
Dim OL, olMailItem, MyItem

Sujet = 'Mise à disposition '
AdresseMail = Sheets('data').Range('I13:I23')
Message = ' Bonjour, Ceci est un test d'envoi automatique'

Set OL = CreateObject('Outlook.Application')
Set MyItem = OL.CreateItem(olMailItem)
With MyItem
.To = AdresseMail
.Subject = Sujet
.Body = Message
'.Attachments.Add 'C:tmpMonDoc.xls'
.Categories = 'Banking-Info'
.OriginatorDeliveryReportRequested = False
.ReadReceiptRequested = True
.Send
End With

End Sub

 

[PascalXLD]

Re

essaies par doc [file name=Doc1_20051214170105.zip size=2369]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Doc1_20051214170105.zip[/file]

 

[PascalXLD]

Bon

J'arrivais pas à envoyer une réponse. Donc tu as la réponse sur le doc

 

[copayo]

la concatenation ne se fait pas.

merci pour le coup de main,

si tu as une autre idee je suis preneur

je fouille les archives mais je trouve rien d'approprié

 

[copayo]

j'ai trouvé,

il est énorme son fichier !!!

au cas ou ca t'interresse !!!!

Lien supprimé