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
Denis
Bonjour, Sur une action dans ThisWorkbook ( pour exemple Beforesave) se qui laisse suposer que le classeur a été modifié. Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Call CreateHTMLMail End Sub 'un classique des exemple Outlook Sub CreateHTMLMail() Dim olApp As Outlook.Application Dim objMail As Outlook.MailItem Set olApp = Outlook.Application Set objMail = olApp.CreateItem(olMailItem)
With objMail .To = "" .BodyFormat = olFormatHTML .HTMLBody = "<HTML><H2>Vote pour moi</H2><BODY>Cordialement, </BODY><BODY>Denis</BODY></HTML>" .Display .Send End With
End Sub
il faut ajouter la référence à MS Outlook x.y library dans le code VB
Je me présenterais pas aux prochaines élections alors ne cherchez pas pour qui voter.
Cordialement Denis
"chris" a écrit dans le message de news:
Bonjour, est-il possible d'envoyer automatiquement un message outlook quand un fichier excel est modifié ? Si oui comment ? Merci
Bonjour,
Sur une action dans ThisWorkbook ( pour exemple Beforesave) se qui laisse
suposer que le classeur a été modifié.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Call CreateHTMLMail
End Sub
'un classique des exemple Outlook
Sub CreateHTMLMail()
Dim olApp As Outlook.Application
Dim objMail As Outlook.MailItem
Set olApp = Outlook.Application
Set objMail = olApp.CreateItem(olMailItem)
With objMail
.To = "toto.tata@hotmail.com"
.BodyFormat = olFormatHTML
.HTMLBody = "<HTML><H2>Vote pour moi</H2><BODY>Cordialement,
</BODY><BODY>Denis</BODY></HTML>"
.Display
.Send
End With
End Sub
il faut ajouter la référence à MS Outlook x.y library dans le code VB
Je me présenterais pas aux prochaines élections alors ne cherchez pas pour
qui voter.
Cordialement
Denis
"chris" <chris@discussions.microsoft.com> a écrit dans le message de news:
0518E361-21CC-4561-8550-1D0B7249F5E6@microsoft.com...
Bonjour,
est-il possible d'envoyer automatiquement un message outlook quand un
fichier excel est modifié ? Si oui comment ? Merci
Bonjour, Sur une action dans ThisWorkbook ( pour exemple Beforesave) se qui laisse suposer que le classeur a été modifié. Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Call CreateHTMLMail End Sub 'un classique des exemple Outlook Sub CreateHTMLMail() Dim olApp As Outlook.Application Dim objMail As Outlook.MailItem Set olApp = Outlook.Application Set objMail = olApp.CreateItem(olMailItem)
With objMail .To = "" .BodyFormat = olFormatHTML .HTMLBody = "<HTML><H2>Vote pour moi</H2><BODY>Cordialement, </BODY><BODY>Denis</BODY></HTML>" .Display .Send End With
End Sub
il faut ajouter la référence à MS Outlook x.y library dans le code VB
Je me présenterais pas aux prochaines élections alors ne cherchez pas pour qui voter.
Cordialement Denis
"chris" a écrit dans le message de news:
Bonjour, est-il possible d'envoyer automatiquement un message outlook quand un fichier excel est modifié ? Si oui comment ? Merci
