Envoyé une feuil excel en tan qe corp de mail
cedric levrat
-
Hitsmyr Messages postés 415 Statut Membre -
Hitsmyr Messages postés 415 Statut Membre -
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
A voir également:
- Envoyé une feuil excel en tan qe corp de mail
- Liste déroulante excel - Guide
- Déplacer une colonne excel - Guide
- Word et excel gratuit - Guide
- Mise en forme conditionnelle excel - Guide
- Si ou excel - Guide
3 réponses
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
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
