Faire envoyer un mail à Excel
Le
Billy
Bonjour,
Voila mon soucis :
Je souhaiterais que Excel lors d'un changement de valeur d'une cellule,
celui-ci envoie un mail d'avertissement (en VBA) avec Outlook (Messagerie
entreprise).
Du type
Recipient **********
Subject "AVERTISSEMENT"
Message "La cellule "& *** & " a changer"
Le tout sans que le fichier en question ne soit envoyer lui même comme dans
les essais que j'ai réalisés jusqu'à maintenant. (Je ne voudrais pas porter
préjudice au quotas de boites E-mail).
Merci
Voila mon soucis :
Je souhaiterais que Excel lors d'un changement de valeur d'une cellule,
celui-ci envoie un mail d'avertissement (en VBA) avec Outlook (Messagerie
entreprise).
Du type
Recipient **********
Subject "AVERTISSEMENT"
Message "La cellule "& *** & " a changer"
Le tout sans que le fichier en question ne soit envoyer lui même comme dans
les essais que j'ai réalisés jusqu'à maintenant. (Je ne voudrais pas porter
préjudice au quotas de boites E-mail).
Merci
Poser une question
plusieurs solutions ici :
http://dj.joss.free.fr/web.htm
ou là :
http://www.excelabo.net/moteurs/recherche.php
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microso...c.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Billy" news:c76c0g$gnq$
OK mais ces solutions me laisse un peu sur ma fin car ellles ont toutes pour
finalités l'envoi complet ou partiel du classeur. Perso je veux juste un
message san piece jointe...
au moins pas celle ci :
Sub EnvoiUnMail()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = Range("d1")
Subj = Range("d2")
Msg = Msg & Range("d3")
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microso...c.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Billy" news:c76d01$k40$
Ah ! Ok vais essayer.
merci