bonjour à tous
j'essaie d'envoyer une feuille excel par mail (envoyer vers destinataire) en
VBA
L'enregistreur de macro n'enregistre rien ...
rien trouvé dans l'excelabo à ce sujet
quelqu'un aurait-il une idée ???
merci d'avance
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
Joachim Ruegsegger
j'espère que ça pourra t'aider...
http://dj.joss.free.fr/web.htm#top
Cordialement
JR
"claude" @tele2.fr> a écrit dans le message de news: 3Ebci.122$
bonjour à tous j'essaie d'envoyer une feuille excel par mail (envoyer vers destinataire) en VBA L'enregistreur de macro n'enregistre rien ... rien trouvé dans l'excelabo à ce sujet quelqu'un aurait-il une idée ??? merci d'avance
j'espère que ça pourra t'aider...
http://dj.joss.free.fr/web.htm#top
Cordialement
JR
"claude" <enlever@doclaude@tele2.fr> a écrit dans le message de news:
3Ebci.122$ap1.54@nntpserver.swip.net...
bonjour à tous
j'essaie d'envoyer une feuille excel par mail (envoyer vers destinataire)
en VBA
L'enregistreur de macro n'enregistre rien ...
rien trouvé dans l'excelabo à ce sujet
quelqu'un aurait-il une idée ???
merci d'avance
"claude" @tele2.fr> a écrit dans le message de news: 3Ebci.122$
bonjour à tous j'essaie d'envoyer une feuille excel par mail (envoyer vers destinataire) en VBA L'enregistreur de macro n'enregistre rien ... rien trouvé dans l'excelabo à ce sujet quelqu'un aurait-il une idée ??? merci d'avance
Stéphan DuQuébec
Private Sub MACROdeClaude_Click()
Dim OutApp As Object Dim OutMail As Object
Application.DisplayAlerts = False
Set OutApp = CreateObject("Outlook.Application") OutApp.Session.Logon Set OutMail = OutApp.CreateItem(0)
With OutMail .To = "" .CC = "" .BCC = "" .Subject = "FORMULAIRE " .Body = Chr(10) & "DOMMAGES" .Attachments.Add ActiveWorkbook.FullName .Display End With
Set OutMail = Nothing Set OutApp = Nothing
Application.DisplayAlerts = True
End Sub
Private Sub MACROdeClaude_Click()
Dim OutApp As Object
Dim OutMail As Object
Application.DisplayAlerts = False
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = ""
.CC = ""
.BCC = ""
.Subject = "FORMULAIRE "
.Body = Chr(10) & "DOMMAGES"
.Attachments.Add ActiveWorkbook.FullName
.Display
End With