Envoyé une feuil excel en tan qe corp de mail
bonjour,
je suis en stage et cherche en activant un bouton macro sous excel à envoyer un fichier excel en corps de mail sous outlook
merci de me faire savoir si tu as la réponse
si vous pouviez me répondre assez vite.
le code si c une pièce jointe :
'Sub Envoyer()
'Dim adresses As String
'adresses = adresses + "cedriclevrat@netcourrier.com"
'Application.Dialogs(xlDialogSendMail).Show adresses, "Situation de travaux" & Range("e6").Value & Range("e9").Value
'fin:
'ActiveWorkbook.Close savechanges:=False
'MsgBox "Vous venez de traiter la facture que vous vouliez", vbOKOnly, "Travail accompli !"
'End Sub
je suis en stage et cherche en activant un bouton macro sous excel à envoyer un fichier excel en corps de mail sous outlook
merci de me faire savoir si tu as la réponse
si vous pouviez me répondre assez vite.
le code si c une pièce jointe :
'Sub Envoyer()
'Dim adresses As String
'adresses = adresses + "cedriclevrat@netcourrier.com"
'Application.Dialogs(xlDialogSendMail).Show adresses, "Situation de travaux" & Range("e6").Value & Range("e9").Value
'fin:
'ActiveWorkbook.Close savechanges:=False
'MsgBox "Vous venez de traiter la facture que vous vouliez", vbOKOnly, "Travail accompli !"
'End Sub
3 réponses
-
Non, je ne l'ai pas essayé, le vba et moi, ça fait deux!
-
oui je l'avais vu mais je comprend rien au code et ca marche pas....
t'as essayé toi ?
cedric -
Salut,
Je viens de trouver cela :
http://www.excelabo.net/xl/sortir.php#excelversmail
Envoyer une feuille excel en tant que corps d'un mail
j'aimerais envoyer une feuille de classeur excel en tant que corps du message et PAS en pièce jointe en exécutant une macro
Sub mail_par_vba()
'réponse de H. S. le lundi 13 décembre 1999 13:06
'newsgroup : microsoft.public.fr.excel
'discussion : Envoi de mail à partir d'Xl
'RAJOUTER UNE REFERENCE AU CONTROLE MAPI
Dim myMessage As New MAPIMessages
Dim mySession As New MAPISession
mySession.UserName = "Hamard Stephane"
mySession.Password = "ZazaAsLesYeuxVertsSelonJ@C"
mySession.SignOn
myMessage.SessionID = mySession.SessionID
myMessage.Compose
myMessage.RecipAddress = "shamard@totoworld.fr"
myMessage.MsgSubject = "Resultat " & Format(Date, "dd/mm/yy")
myMessage.MsgNoteText = "Salut Zaza"
myMessage.AttachmentType = 0
myMessage.AttachmentName = "Fichier test"
myMessage.AttachmentPathName = "c:\perso\ emp\ est.txt"
myMessage.ResolveName
On Error Resume Next
'Je n'arrive pas à intercepter la fermeture de la fenêtre...
'donc j'utilise la gestion d'erreur (pas très bon).
myMessage.Send True
mySession.SignOff
End Sub
