OVH Cloud OVH Cloud

envoyer un mail via Excel

6 réponses
Avatar
CID
bonjour,

j'ai cr=E9=E9 une feuille excel avec des donn=E9es personelles=20
pour des personnes, ces donn=E9es ne sont accessibles que=20
par mot de passe, et je voudrais que lorsque=20
l'administrateur regarde les comptes des autres qu'un=20
mail leurs soient envoy=E9s et en disant que leurs donn=E9es=20
ont =E9t=E9 consult=E9.
Comment faire avec EXCEL pour qu'il me cr=E9=E9 un message et=20
me l'envoi tout seul.

Merci

CID

6 réponses

Avatar
gilbert
Bonjour

mettre dans thisworkbook
Sub workbook_open()
ActiveWorkbook.SendMail Recipients:=""
End Sub

@+++


--
supprimer 'stpspam' à mon adresse de messagerie pour me joindre directement
. SVP
"CID" a écrit dans le message de news:
10cd001c3bf06$27239c20$
bonjour,

j'ai créé une feuille excel avec des données personelles
pour des personnes, ces données ne sont accessibles que
par mot de passe, et je voudrais que lorsque
l'administrateur regarde les comptes des autres qu'un
mail leurs soient envoyés et en disant que leurs données
ont été consulté.
Comment faire avec EXCEL pour qu'il me créé un message et
me l'envoi tout seul.

Merci

CID
Avatar
Starwing
Bonjour,

Le code dépendra avec quel logiciel tu enverras ton e-
mail...

Starwing
-----Message d'origine-----
bonjour,

j'ai créé une feuille excel avec des données personelles
pour des personnes, ces données ne sont accessibles que
par mot de passe, et je voudrais que lorsque
l'administrateur regarde les comptes des autres qu'un
mail leurs soient envoyés et en disant que leurs données
ont été consulté.
Comment faire avec EXCEL pour qu'il me créé un message et
me l'envoi tout seul.

Merci

CID

.



Avatar
Laurent
Bonjour,

"gilbert" écrivait
news:#:


mettre dans thisworkbook
Sub workbook_open()
ActiveWorkbook.SendMail Recipients:=""
End Sub


Je suis aussi intéressé par cette possibilité mais cette fonction expédie
la feuille complète en pièce jointe. Pour ma part, je préfererais l'envoi
d'un mail simple avec par exemple le nom de la feuille en objet

Merci
--
A+
Laurent

Avatar
gilbert
Bonjour Laurent

Malheureusement "Sendmail" ne s'applique qu'a workbook
Mais tu peux créer un classeur ex: alerte.xls a l'emplacement que tu veux à
condition que tu indiques le chemin dans filename
dans ce classeur tu indiques ce que tu veux
dans le classeur qui a la possibilité d'être ouvert tu écris le code suivant
Sub workbook_open()
Workbooks.Open Filename:="c:Alerte.xls"
ActiveWorkbook.SendMail Recipients:=""
ActiveWorkbook.Close SaveChanges:úlse
End Sub
si tu utilises outlook express dans le panneau options
a l'onglet sécurité tu décoches
"M'avertir lorsque d'autres applications essaient d'envoyer des messages
électroniques de ma part"
et a l'onglet envois tu coches
"envoyer les messages immédiatement"

Des améliorations sont encore possibles à réfléchir ;-)))

@++++

--
supprimer 'stpspam' à mon adresse de messagerie pour me joindre directement
. SVP


Bonjour,



mettre dans thisworkbook
Sub workbook_open()
ActiveWorkbook.SendMail Recipients:=""
End Sub


Je suis aussi intéressé par cette possibilité mais cette fonction expédie
la feuille complète en pièce jointe. Pour ma part, je préfererais l'envoi
d'un mail simple avec par exemple le nom de la feuille en objet

Merci
--
A+
Laurent



Avatar
gilbert
Bonjour Laurent

Malheureusement "Sendmail" ne s'applique qu'a workbook
Mais tu peux créer un classeur ex: alerte.xls a l'emplacement que tu veux à
condition que tu indiques le chemin dans filename
dans ce classeur tu indiques ce que tu veux
dans le classeur qui a la possibilité d'être ouvert tu écris le code suivant
Sub workbook_open()
Workbooks.Open Filename:="c:Alerte.xls"
ActiveWorkbook.SendMail Recipients:=""
ActiveWorkbook.Close SaveChanges:úlse
End Sub
si tu utilises outlook express dans le panneau options
a l'onglet sécurité tu décoches
"M'avertir lorsque d'autres applications essaient d'envoyer des messages
électroniques de ma part"
et a l'onglet envois tu coches
"envoyer les messages immédiatement"

Des améliorations sont encore possibles à réfléchir ;-)))

@++++

--
supprimer 'stpspam' à mon adresse de messagerie pour me joindre directement
. SVP


Bonjour,



mettre dans thisworkbook
Sub workbook_open()
ActiveWorkbook.SendMail Recipients:=""
End Sub


Je suis aussi intéressé par cette possibilité mais cette fonction expédie
la feuille complète en pièce jointe. Pour ma part, je préfererais l'envoi
d'un mail simple avec par exemple le nom de la feuille en objet

Merci
--
A+
Laurent



Avatar
Laurent
"gilbert" écrivait
news:#IunFJ$:


Malheureusement "Sendmail" ne s'applique qu'a workbook
Mais tu peux créer un classeur ex: alerte.xls a l'emplacement que tu
veux à condition que tu indiques le chemin dans filename
dans ce classeur tu indiques ce que tu veux
dans le classeur qui a la possibilité d'être ouvert tu écris le code
suivant Sub workbook_open()
Workbooks.Open Filename:="c:Alerte.xls"
ActiveWorkbook.SendMail Recipients:=""
ActiveWorkbook.Close SaveChanges:úlse
End Sub



Merci pour cette réponse, je ne chercherai plus ;-)

En revanche dans le même registre, lorsqu'on met un lien hypertexte sur
un fichier word ou excel du style :

mailto:?subject=lalilala, ya t'il un moyen pour mettre un
débute de corps de texte ?

merci

--
A+
Laurent