Envoi de mail automatique via excel

Pourquoi tu n'as pas accès à Faqword ?.... Ce n'est pas un site subversif !!! :D

c la politique de filtrage :(

Elle est bizarre votre politique de filtrage. Ce site ne contient que des trucs sur Word...
Je te recopie la page :

Voici une macro qui fonctionne avec Outlook. Créer la macro et l'affecter à un bouton sur la barre d'outils :

Sub envoimail()
'
' envoie un mail avec la pièce jointe
'
Dim ol As Object, monItem As Object
Set ol = CreateObject("outlook.application")
Set monItem = ol.CreateItem(olMailItem)

monItem.To = " mondestinataire@adresse.com "
monItem.Subject = "objet du mail"
monItem.Body = "Bonjour" & Chr(13) & Chr(13) & "Je vous prie de bien vouloir trouver blabla"
Set mondoc = monItem.Attachments
mondoc.Add ActiveDocument.FullName
monItem.Send
Set ol = Nothing
MsgBox "la demande a bien été transmise "
End Sub

--------------------------------------------------------------------------------

On peut ajouter des variables à la place des constantes. Par exemple, si le destinataire varie, on ajoutera une inputbox en début de macro afin que l'utilisateur saisisse l'adresse du destinataire :

destinataire = InputBox("adresse du destinataire")

et à la place de l'adresse du destinataire en dur, on mettra :

monItem.To = destinataire

Bonjour,

Le VBA Microsoft ne connaît pas le langage d'IBM... Donc, il ne peut pas piloter un objet Lotus.

m@rina