Help! Envoyer un Email avec fichier joint à partir d'excel
cs_tisa
Messages postés
13
Date d'inscription
jeudi 2 janvier 2003
Statut
Membre
Dernière intervention
23 janvier 2003
-
14 janv. 2003 à 10:39
cs_tisa Messages postés 13 Date d'inscription jeudi 2 janvier 2003 Statut Membre Dernière intervention 23 janvier 2003 - 15 janv. 2003 à 20:32
cs_tisa Messages postés 13 Date d'inscription jeudi 2 janvier 2003 Statut Membre Dernière intervention 23 janvier 2003 - 15 janv. 2003 à 20:32
A voir également:
- Vb joi
- Fichier json - Conseils pratiques -Javascript
- Arctan excel ✓ - Forum Visual Basic 6
- Calcul sur excel de l'inverse tangente en grade - Forum VBA Office (Excel, Word ...)
- Afficher userform vba a l'ouverture d'excel ✓ - Forum Visual Basic
- Vba écrire dans un fichier texte - Conseils pratiques -Visual Basic / VB.NET
3 réponses
galldup
Messages postés
90
Date d'inscription
vendredi 18 octobre 2002
Statut
Membre
Dernière intervention
27 décembre 2004
1
14 janv. 2003 à 11:57
14 janv. 2003 à 11:57
Dis plutot quelle messagerie electronique tu veux utiliser ?
outlook ? Lotus ?
outlook ? Lotus ?
cs_tisa
Messages postés
13
Date d'inscription
jeudi 2 janvier 2003
Statut
Membre
Dernière intervention
23 janvier 2003
15 janv. 2003 à 01:04
15 janv. 2003 à 01:04
C'est avec outlook que je veux pouvoir envoyer le mail...
cs_tisa
Messages postés
13
Date d'inscription
jeudi 2 janvier 2003
Statut
Membre
Dernière intervention
23 janvier 2003
15 janv. 2003 à 20:32
15 janv. 2003 à 20:32
c bon j'ai touvé la soluce!!!
' Bouton8_QuandClic Macro
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "C:\essai\tmp_file.xls"
ActiveWorkbook.SaveAs "C:\essai\tmp2_file.xls"
Call MailEnvoi
MsgBox "ok pour l'envoi", vbInformation, "CONFIRMATION"
Kill ("C:\essai\tmp_file.xls")
End Sub
Sub MailEnvoi()
Set OutApp = CreateObject("Outlook.Application")
Set Mail = OutApp.CreateItem(olMailItem)
Set Pj = Mail.Attachments
Pj.Add "C:\essai\tmp_file.xls", _
olByValue, 1, "Paye"
Mail.To = "user@mail.com"
Mail.Subject = "Sujet"
Mail.Body = "texte"
Mail.Send
End Sub
' Bouton8_QuandClic Macro
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "C:\essai\tmp_file.xls"
ActiveWorkbook.SaveAs "C:\essai\tmp2_file.xls"
Call MailEnvoi
MsgBox "ok pour l'envoi", vbInformation, "CONFIRMATION"
Kill ("C:\essai\tmp_file.xls")
End Sub
Sub MailEnvoi()
Set OutApp = CreateObject("Outlook.Application")
Set Mail = OutApp.CreateItem(olMailItem)
Set Pj = Mail.Attachments
Pj.Add "C:\essai\tmp_file.xls", _
olByValue, 1, "Paye"
Mail.To = "user@mail.com"
Mail.Subject = "Sujet"
Mail.Body = "texte"
Mail.Send
End Sub
