envoie mail depuis exce

[wrap food]

bonjour,
j'ai commencer un code pour copier un fichier et en suite l'envoyer en piéce jointe.

je suis arrivé a mettre le nom de destinataire mettre le fichier en PJ et le sujet .

mais je n'arrive pas a mettre un destinataire en copi, ni mettre un cort de texte et surtout je n'arrive pas a envoyer le mail

Si vous avez une solution pour compléter ce code

Private Sub CommandButton2_Click()
ActiveSheet.Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Range("k3") & ".xls"
Application.Dialogs(xlDialogSendMail).Show Range("h17"), Range("k4")

End Sub
par avance merci

 

[MJ13]

Re : envoie mail depuis exce

Bonjour wrap food

Avant de te lancer dans des codes complexes, teste des codes simples comme:

Sub EnvoieFeuilleMail()
ActiveSheet.Copy
'ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Range("A1") & ".xls"
ActiveWorkbook.SaveAs "C:\test\" & Range("A1") & ".xls"
Application.Dialogs(xlDialogSendMail).Show 'Range("h17"), Range("k4")
End Sub

 

[wrap food]

Re : envoie mail depuis exce

merci MJ13

mais j'ai besoin que le fichier copié se met dans le même dossier que le fichier d'origine et qu'en suite , je l'envoie par mail
le dossier d'origine peut etres mis par l'oppérateur n'import ou c'est mon probléme.
Pourriez vous me dire comment je dois faire pour envoyer le mail automatiquement , parce que la j'ouvre outlook le sujet la piéce jopinte y est
mais pas de texte nis de cc et il n'envoie pas le mail
par avance merci encore

 

[MJ13]

Re : envoie mail depuis exce

Re

Sinon, tu peux tester un code comme celui-ci, à adapter:

Sub EnvoieFeuilleMail2()
vbs
NomPath = ActiveWorkbook.Path
ActiveSheet.Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs NomPath & "\" & "test.xlsx"
Application.DisplayAlerts = True
nom = "toto @ titi.fr" 'ActiveSheet.Range("B1").Value
Application.Dialogs(xlDialogSendMail).Show nom
End Sub
Sub vbs()
'http://www.vbfrance.com/forum/sujet-LANCER-VBS-DEPUIS-VB_23978.aspx
   Set wshell = CreateObject("WScript.Shell")
   'ICI lance le programme VBS 
somelong = wshell.Run("C:\test\TestMailEnvoieOutlook2007.vbs")
End Sub

Avec le fichier .vbs que tu édites avec le bloc note.

[TABLE="width: 605"]
[TR]
[TD]Editez un fichier .vbs nommé: TestMailEnvoieOutlook2007.vbs
[/TD]
[/TR]
[TR]
[TD]code de:
[/TD]
[/TR]
[TR]
[TD]'MJ Issu du code de VBS ECRIVANT DANS LE BLOC-NOTE... sendkeys, Source N°32820 Visual Basic, VB6, VB.NET, VB 2005, VB
[/TD]
[/TR]
[TR]
[TD]'définition🙂 de la variable
[/TD]
[/TR]
[TR]
[TD]Set variable=CreateObject("WScript.Shell")
[/TD]
[/TR]
[TR]
[TD]MJ attente 6 sec
[/TD]
[/TR]
[TR]
[TD]wscript.sleep 6000
[/TD]
[/TR]
[TR]
[TD]for i = 1 to 7
[/TD]
[/TR]
[TR]
[TD]wscript.sleep 400
[/TD]
[/TR]
[TR]
[TD]variable.SendKeys ("+{TAB}")
[/TD]
[/TR]
[TR]
[TD]next
[/TD]
[/TR]
[TR]
[TD]wscript.sleep 400
[/TD]
[/TR]
[TR]
[TD]variable.SendKeys ("~")
[/TD]
[/TR]
[TR]
[TD]wscript.sleep 2000
[/TD]
[/TR]
[TR]
[TD]variable.SendKeys ("^{F4}")
[/TD]
[/TR]
[/TABLE]