Bonsoir
Je désire après clic sur un bouton dans un fichier compresser celui-ci en
.rar puis
qu'il aille en Pj dans un mail
Est-ce possible ?
Je vous remercie
Didier
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Philippe Noss
Bonsoir, Pour Winrar, voir http://groups.google.fr/group/microsoft.public.fr.excel/browse_frm/thread/a 52d3485495639bc/1908d5700d62fdcc?q=winrar&rnum=1&hl=fr#1908d5700d62fd cc Pour envoyer un email Sub envoyer_mail(ByVal Adresse As String, ByVal sujet As String, ByVal message As String) Dim outlookobj As Object
'on utilise ici OLE automation 'création d'un objet renvoyant l'application MS Outlook elle-même Set outlookobj = CreateObject("Outlook.Application")
'création d'un nouveau message With outlookobj.createitem(olmailitem)
'on libère l'objet créé Set outlookobj = Nothing End Sub
Avec ces 2 codes, tu devrais t'en sortir Philippe N http://nossphil.perso.cegetel.net/exoutils.html
Bonsoir,
Pour Winrar, voir
http://groups.google.fr/group/microsoft.public.fr.excel/browse_frm/thread/a 52d3485495639bc/1908d5700d62fdcc?q=winrar&rnum=1&hl=fr#1908d5700d62fd cc
Pour envoyer un email
Sub envoyer_mail(ByVal Adresse As String, ByVal sujet As String, ByVal
message As String)
Dim outlookobj As Object
'on utilise ici OLE automation
'création d'un objet renvoyant l'application MS Outlook elle-même
Set outlookobj = CreateObject("Outlook.Application")
'création d'un nouveau message
With outlookobj.createitem(olmailitem)
Bonsoir, Pour Winrar, voir http://groups.google.fr/group/microsoft.public.fr.excel/browse_frm/thread/a 52d3485495639bc/1908d5700d62fdcc?q=winrar&rnum=1&hl=fr#1908d5700d62fd cc Pour envoyer un email Sub envoyer_mail(ByVal Adresse As String, ByVal sujet As String, ByVal message As String) Dim outlookobj As Object
'on utilise ici OLE automation 'création d'un objet renvoyant l'application MS Outlook elle-même Set outlookobj = CreateObject("Outlook.Application")
'création d'un nouveau message With outlookobj.createitem(olmailitem)
'on libère l'objet créé Set outlookobj = Nothing End Sub
Avec ces 2 codes, tu devrais t'en sortir Philippe N http://nossphil.perso.cegetel.net/exoutils.html
Didier Novarin
Ok Merci beaucoup Philippe Didier
"Philippe Noss" a écrit dans le message de news:
Bonsoir, Pour Winrar, voir http://groups.google.fr/group/microsoft.public.fr.excel/browse_frm/thread/a52d3485495639bc/1908d5700d62fdcc?q=winrar&rnum=1&hl=fr#1908d5700d62fdcc Pour envoyer un email Sub envoyer_mail(ByVal Adresse As String, ByVal sujet As String, ByVal message As String) Dim outlookobj As Object
'on utilise ici OLE automation 'création d'un objet renvoyant l'application MS Outlook elle-même Set outlookobj = CreateObject("Outlook.Application")
'création d'un nouveau message With outlookobj.createitem(olmailitem)
'on libère l'objet créé Set outlookobj = Nothing End Sub
Avec ces 2 codes, tu devrais t'en sortir Philippe N http://nossphil.perso.cegetel.net/exoutils.html
Ok
Merci beaucoup Philippe
Didier
"Philippe Noss" <exefac@exefac.com> a écrit dans le message de news:
1129584231.264962.150170@g47g2000cwa.googlegroups.com...
Bonsoir,
Pour Winrar, voir
http://groups.google.fr/group/microsoft.public.fr.excel/browse_frm/thread/a52d3485495639bc/1908d5700d62fdcc?q=winrar&rnum=1&hl=fr#1908d5700d62fdcc
Pour envoyer un email
Sub envoyer_mail(ByVal Adresse As String, ByVal sujet As String, ByVal
message As String)
Dim outlookobj As Object
'on utilise ici OLE automation
'création d'un objet renvoyant l'application MS Outlook elle-même
Set outlookobj = CreateObject("Outlook.Application")
'création d'un nouveau message
With outlookobj.createitem(olmailitem)
Bonsoir, Pour Winrar, voir http://groups.google.fr/group/microsoft.public.fr.excel/browse_frm/thread/a52d3485495639bc/1908d5700d62fdcc?q=winrar&rnum=1&hl=fr#1908d5700d62fdcc Pour envoyer un email Sub envoyer_mail(ByVal Adresse As String, ByVal sujet As String, ByVal message As String) Dim outlookobj As Object
'on utilise ici OLE automation 'création d'un objet renvoyant l'application MS Outlook elle-même Set outlookobj = CreateObject("Outlook.Application")
'création d'un nouveau message With outlookobj.createitem(olmailitem)
