Sujet Précédent Sujet Suivant

Envoyé une feuil excel en tan qe corp de mail

Fermé
cedric levrat - 17 août 2005 à 09:05
Hitsmyr Messages postés 414 Date d'inscription samedi 30 juillet 2005 Statut Membre Dernière intervention 18 décembre 2005 - 17 août 2005 à 16:49
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
A voir également:

3 réponses

Réponse 1 / 3
Hitsmyr Messages postés 414 Date d'inscription samedi 30 juillet 2005 Statut Membre Dernière intervention 18 décembre 2005 193
17 août 2005 à 10:45
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
0
Réponse 2 / 3
cedriclevrat Messages postés 2 Date d'inscription mercredi 17 août 2005 Statut Membre Dernière intervention 17 août 2005
17 août 2005 à 11:43
oui je l'avais vu mais je comprend rien au code et ca marche pas....
t'as essayé toi ?

cedric
0
Réponse 3 / 3
Hitsmyr Messages postés 414 Date d'inscription samedi 30 juillet 2005 Statut Membre Dernière intervention 18 décembre 2005 193
17 août 2005 à 16:49
Non, je ne l'ai pas essayé, le vba et moi, ça fait deux!
0