Bonjour,
Question de faire du pouce sur une ficelle précédente, j'ai consulté
l'excellent site http://dj.joss.free.fr/web.htm pour automatiser la
transmission d'un courriel avec la commande suivante:
Sub EnvoiFeuilMail()
Dim Wbk As Workbook
ThisWorkbook.Sheets("CasSupprimés").Copy
Application.DisplayAlerts = False
Set Wbk = ActiveWorkbook
SendKeys "{E}"
Wbk.SendMail "MonsieurUnTel@parici.parlà", "Second test", True
'true pour un avis de reception
Application.DisplayAlerts = True
Wbk.Close savechanges:=False
Set Wbk = Nothing
End Sub
Mon seul problème dmeurant....y a-t-il moyen de passer outre le fameux
message demandant confirmation de la transmission automatisée (suspectée
d'infection par virus) ?
Bien que je comprenne qu'il s'agit probablement plus d'une problématique
Outlook que Excel puisque mon DispalyAlert à False ne soit pas efficace.
Merci pour ceux & celles qui peuvent me donner un coup de pouce.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Clément Marcotte
Bonjour,
Avec un de ces 2 petits utilitaires qui "cliquent" automatiquement et que l'on peut retrouver à partir de chez JièL: ClickYes ou YesXpress.
http://faq.outlook.free.fr/telechargement.htm
"Stéphan DuQuébec" a écrit dans le message de news:
Bonjour, Question de faire du pouce sur une ficelle précédente, j'ai consulté l'excellent site http://dj.joss.free.fr/web.htm pour automatiser la transmission d'un courriel avec la commande suivante:
Sub EnvoiFeuilMail() Dim Wbk As Workbook ThisWorkbook.Sheets("CasSupprimés").Copy Application.DisplayAlerts = False Set Wbk = ActiveWorkbook SendKeys "{E}" Wbk.SendMail "à", "Second test", True 'true pour un avis de reception Application.DisplayAlerts = True Wbk.Close savechanges:úlse Set Wbk = Nothing End Sub
Mon seul problème dmeurant....y a-t-il moyen de passer outre le fameux message demandant confirmation de la transmission automatisée (suspectée d'infection par virus) ?
Bien que je comprenne qu'il s'agit probablement plus d'une problématique Outlook que Excel puisque mon DispalyAlert à False ne soit pas efficace.
Merci pour ceux & celles qui peuvent me donner un coup de pouce.
Bonjour,
Avec un de ces 2 petits utilitaires qui "cliquent" automatiquement et que
l'on peut retrouver à partir de chez JièL: ClickYes ou YesXpress.
http://faq.outlook.free.fr/telechargement.htm
"Stéphan DuQuébec" <StphanDuQubec@discussions.microsoft.com> a écrit dans le
message de news: C4F14FA4-2CD2-41B2-BC01-D2514E2C0D7D@microsoft.com...
Bonjour,
Question de faire du pouce sur une ficelle précédente, j'ai consulté
l'excellent site http://dj.joss.free.fr/web.htm pour automatiser la
transmission d'un courriel avec la commande suivante:
Sub EnvoiFeuilMail()
Dim Wbk As Workbook
ThisWorkbook.Sheets("CasSupprimés").Copy
Application.DisplayAlerts = False
Set Wbk = ActiveWorkbook
SendKeys "{E}"
Wbk.SendMail "MonsieurUnTel@parici.parlà", "Second test", True
'true pour un avis de reception
Application.DisplayAlerts = True
Wbk.Close savechanges:úlse
Set Wbk = Nothing
End Sub
Mon seul problème dmeurant....y a-t-il moyen de passer outre le fameux
message demandant confirmation de la transmission automatisée (suspectée
d'infection par virus) ?
Bien que je comprenne qu'il s'agit probablement plus d'une problématique
Outlook que Excel puisque mon DispalyAlert à False ne soit pas efficace.
Merci pour ceux & celles qui peuvent me donner un coup de pouce.
Avec un de ces 2 petits utilitaires qui "cliquent" automatiquement et que l'on peut retrouver à partir de chez JièL: ClickYes ou YesXpress.
http://faq.outlook.free.fr/telechargement.htm
"Stéphan DuQuébec" a écrit dans le message de news:
Bonjour, Question de faire du pouce sur une ficelle précédente, j'ai consulté l'excellent site http://dj.joss.free.fr/web.htm pour automatiser la transmission d'un courriel avec la commande suivante:
Sub EnvoiFeuilMail() Dim Wbk As Workbook ThisWorkbook.Sheets("CasSupprimés").Copy Application.DisplayAlerts = False Set Wbk = ActiveWorkbook SendKeys "{E}" Wbk.SendMail "à", "Second test", True 'true pour un avis de reception Application.DisplayAlerts = True Wbk.Close savechanges:úlse Set Wbk = Nothing End Sub
Mon seul problème dmeurant....y a-t-il moyen de passer outre le fameux message demandant confirmation de la transmission automatisée (suspectée d'infection par virus) ?
Bien que je comprenne qu'il s'agit probablement plus d'une problématique Outlook que Excel puisque mon DispalyAlert à False ne soit pas efficace.
Merci pour ceux & celles qui peuvent me donner un coup de pouce.
