Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel envoyer une feuille comme corps d'un mail

envoyer une feuille comme corps d'un mail

2 réponses
Avatar
claude
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
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
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



Avatar
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