envoyer une feuille comme corps d'un mail

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Joachim Ruegsegger
Le #4915241
j'espère que ça pourra t'aider...

http://dj.joss.free.fr/web.htm#top

Cordialement

JR


"claude" 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
Le #4590481
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
Publicité
Poster une réponse
Anonyme