Je travaille sous Excel et j'ai une petite macro qui me permet
d'envoyer ce classeur en tant que pi=E8ce jointe dans un nouveau message
Outlook.
Voici la ligne de commande :
Rep =3D Shell("""D:\Program Files\Office XP\Office10\OUTLOOK.EXE""" &
Chemin, vbMaximizedFocus)
"Chemin" repr=E9sente le chemin o=F9 est enregistr=E9 le classeur Excel.
Cependant, dans ce classeur Excel, j'ai une cellule o=F9 j'ai du texte
et je souhaiterais que ce texte soit mis en objet du mail =E0 envoyer
avec le classeur Excel.
Par Exemple :
Objet =3D range("a1")
J'ai essay=E9 de faire le progreamme ci-dessous, mais cela ne fonctionne
pas:
Rep =3D Shell("""D:\Program Files\Office XP\Office10\OUTLOOK.EXE""" &
objet & Chemin, vbMaximizedFocus)
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
Jean-François Aubert
Salut Jérémy,
voir du côté de: http://www.excelabo.net/excel/sortirmail.php
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"Jérémy" a écrit dans le message de news:
Bonjour,
Je travaille sous Excel et j'ai une petite macro qui me permet d'envoyer ce classeur en tant que pièce jointe dans un nouveau message Outlook.
Voici la ligne de commande : Rep = Shell("""D:Program FilesOffice XPOffice10OUTLOOK.EXE""" & Chemin, vbMaximizedFocus)
"Chemin" représente le chemin où est enregistré le classeur Excel.
Cependant, dans ce classeur Excel, j'ai une cellule où j'ai du texte et je souhaiterais que ce texte soit mis en objet du mail à envoyer avec le classeur Excel.
Par Exemple :
Objet = range("a1")
J'ai essayé de faire le progreamme ci-dessous, mais cela ne fonctionne pas: Rep = Shell("""D:Program FilesOffice XPOffice10OUTLOOK.EXE""" & objet & Chemin, vbMaximizedFocus)
Merci pour votre précieuse aide
Jérémy
Salut Jérémy,
voir du côté de:
http://www.excelabo.net/excel/sortirmail.php
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"Jérémy" <vilou1@hotmail.com> a écrit dans le message de news:
031af0f3-9659-4f9d-96be-aabf06b9d86a@y21g2000hsf.googlegroups.com...
Bonjour,
Je travaille sous Excel et j'ai une petite macro qui me permet
d'envoyer ce classeur en tant que pièce jointe dans un nouveau message
Outlook.
Voici la ligne de commande :
Rep = Shell("""D:Program FilesOffice XPOffice10OUTLOOK.EXE""" &
Chemin, vbMaximizedFocus)
"Chemin" représente le chemin où est enregistré le classeur Excel.
Cependant, dans ce classeur Excel, j'ai une cellule où j'ai du texte
et je souhaiterais que ce texte soit mis en objet du mail à envoyer
avec le classeur Excel.
Par Exemple :
Objet = range("a1")
J'ai essayé de faire le progreamme ci-dessous, mais cela ne fonctionne
pas:
Rep = Shell("""D:Program FilesOffice XPOffice10OUTLOOK.EXE""" &
objet & Chemin, vbMaximizedFocus)
voir du côté de: http://www.excelabo.net/excel/sortirmail.php
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"Jérémy" a écrit dans le message de news:
Bonjour,
Je travaille sous Excel et j'ai une petite macro qui me permet d'envoyer ce classeur en tant que pièce jointe dans un nouveau message Outlook.
Voici la ligne de commande : Rep = Shell("""D:Program FilesOffice XPOffice10OUTLOOK.EXE""" & Chemin, vbMaximizedFocus)
"Chemin" représente le chemin où est enregistré le classeur Excel.
Cependant, dans ce classeur Excel, j'ai une cellule où j'ai du texte et je souhaiterais que ce texte soit mis en objet du mail à envoyer avec le classeur Excel.
Par Exemple :
Objet = range("a1")
J'ai essayé de faire le progreamme ci-dessous, mais cela ne fonctionne pas: Rep = Shell("""D:Program FilesOffice XPOffice10OUTLOOK.EXE""" & objet & Chemin, vbMaximizedFocus)
Merci pour votre précieuse aide
Jérémy
Jacques93
Bonjour Jérémy,
Vu que c'est Outlook Office, en y ajoutant une référence dans ton projet Excel, tu peux t'inspirer de :
Dim OL As Outlook.Application Dim EMail As Outlook.MailItem
Set OL = New Outlook.Application Set EMail = OL.CreateItem(olMailItem) With EMail .Attachments.Add ("c:toto.xls") .To = "" .Subject = Range("A1") .Send End With Set EMail = Nothing OL.Quit Set OL = Nothing
Jérémy a écrit :
Bonjour,
Je travaille sous Excel et j'ai une petite macro qui me permet d'envoyer ce classeur en tant que pièce jointe dans un nouveau message Outlook.
Voici la ligne de commande : Rep = Shell("""D:Program FilesOffice XPOffice10OUTLOOK.EXE""" & Chemin, vbMaximizedFocus)
"Chemin" représente le chemin où est enregistré le classeur Excel.
Cependant, dans ce classeur Excel, j'ai une cellule où j'ai du texte et je souhaiterais que ce texte soit mis en objet du mail à envoyer avec le classeur Excel.
Par Exemple :
Objet = range("a1")
J'ai essayé de faire le progreamme ci-dessous, mais cela ne fonctionne pas: Rep = Shell("""D:Program FilesOffice XPOffice10OUTLOOK.EXE""" & objet & Chemin, vbMaximizedFocus)
Merci pour votre précieuse aide
Jérémy
--
Cordialement,
Jacques.
Bonjour Jérémy,
Vu que c'est Outlook Office, en y ajoutant une référence dans ton projet
Excel, tu peux t'inspirer de :
Dim OL As Outlook.Application
Dim EMail As Outlook.MailItem
Set OL = New Outlook.Application
Set EMail = OL.CreateItem(olMailItem)
With EMail
.Attachments.Add ("c:toto.xls")
.To = "prenom.nom@fai.fr"
.Subject = Range("A1")
.Send
End With
Set EMail = Nothing
OL.Quit
Set OL = Nothing
Jérémy a écrit :
Bonjour,
Je travaille sous Excel et j'ai une petite macro qui me permet
d'envoyer ce classeur en tant que pièce jointe dans un nouveau message
Outlook.
Voici la ligne de commande :
Rep = Shell("""D:Program FilesOffice XPOffice10OUTLOOK.EXE""" &
Chemin, vbMaximizedFocus)
"Chemin" représente le chemin où est enregistré le classeur Excel.
Cependant, dans ce classeur Excel, j'ai une cellule où j'ai du texte
et je souhaiterais que ce texte soit mis en objet du mail à envoyer
avec le classeur Excel.
Par Exemple :
Objet = range("a1")
J'ai essayé de faire le progreamme ci-dessous, mais cela ne fonctionne
pas:
Rep = Shell("""D:Program FilesOffice XPOffice10OUTLOOK.EXE""" &
objet & Chemin, vbMaximizedFocus)
Vu que c'est Outlook Office, en y ajoutant une référence dans ton projet Excel, tu peux t'inspirer de :
Dim OL As Outlook.Application Dim EMail As Outlook.MailItem
Set OL = New Outlook.Application Set EMail = OL.CreateItem(olMailItem) With EMail .Attachments.Add ("c:toto.xls") .To = "" .Subject = Range("A1") .Send End With Set EMail = Nothing OL.Quit Set OL = Nothing
Jérémy a écrit :
Bonjour,
Je travaille sous Excel et j'ai une petite macro qui me permet d'envoyer ce classeur en tant que pièce jointe dans un nouveau message Outlook.
Voici la ligne de commande : Rep = Shell("""D:Program FilesOffice XPOffice10OUTLOOK.EXE""" & Chemin, vbMaximizedFocus)
"Chemin" représente le chemin où est enregistré le classeur Excel.
Cependant, dans ce classeur Excel, j'ai une cellule où j'ai du texte et je souhaiterais que ce texte soit mis en objet du mail à envoyer avec le classeur Excel.
Par Exemple :
Objet = range("a1")
J'ai essayé de faire le progreamme ci-dessous, mais cela ne fonctionne pas: Rep = Shell("""D:Program FilesOffice XPOffice10OUTLOOK.EXE""" & objet & Chemin, vbMaximizedFocus)
Merci pour votre précieuse aide
Jérémy
--
Cordialement,
Jacques.
Jacques93
Bonjour Jean-François Aubert,
Je l'avais oublié celui là ! N'as tu pas, comme moi, une absence systématique des dans les chemins et noms de clés du registre. J'avais posté un message à Misange, mais je crois que son micro a rendu l'âme peu après :-(
Jean-François Aubert a écrit :
Salut Jérémy,
voir du côté de: http://www.excelabo.net/excel/sortirmail.php
--
Cordialement,
Jacques.
Bonjour Jean-François Aubert,
Je l'avais oublié celui là !
N'as tu pas, comme moi, une absence systématique des dans les chemins
et noms de clés du registre. J'avais posté un message à Misange, mais je
crois que son micro a rendu l'âme peu après :-(
Jean-François Aubert a écrit :
Salut Jérémy,
voir du côté de:
http://www.excelabo.net/excel/sortirmail.php
Je l'avais oublié celui là ! N'as tu pas, comme moi, une absence systématique des dans les chemins et noms de clés du registre. J'avais posté un message à Misange, mais je crois que son micro a rendu l'âme peu après :-(
Jean-François Aubert a écrit :
Salut Jérémy,
voir du côté de: http://www.excelabo.net/excel/sortirmail.php
--
Cordialement,
Jacques.
Jérémy
Bonjour Jean-François,
Merci pour le lien. Néanmoins, je ne souhaites pas que le mail soit envoyé automatiquement du fait que le destinataire du mail n'est pas identique à chaque fois. Il faut juste que le nouveau mail s'ouvre avec la pièce jointe ainsi qu'avec l'objet du mail (ce que je veux ajouter).
Jérémy
Bonjour Jean-François,
Merci pour le lien.
Néanmoins, je ne souhaites pas que le mail soit envoyé automatiquement
du fait que le destinataire du mail n'est pas identique à chaque fois.
Il faut juste que le nouveau mail s'ouvre avec la pièce jointe ainsi
qu'avec l'objet du mail (ce que je veux ajouter).
Merci pour le lien. Néanmoins, je ne souhaites pas que le mail soit envoyé automatiquement du fait que le destinataire du mail n'est pas identique à chaque fois. Il faut juste que le nouveau mail s'ouvre avec la pièce jointe ainsi qu'avec l'objet du mail (ce que je veux ajouter).
Jérémy
Jacques93
Jérémy a écrit : Si tu ne veux pas que le mail parte automatiquement, tu peux utiliser :
Dim OL As Outlook.Application Dim EMail As Outlook.MailItem
Set OL = New Outlook.Application Set EMail = OL.CreateItem(olMailItem) With EMail .Attachments.Add ("c:toto.xls") '.To = "" .Subject = Range("A1") .Display End With
Bonjour Jean-François,
Merci pour le lien. Néanmoins, je ne souhaites pas que le mail soit envoyé automatiquement du fait que le destinataire du mail n'est pas identique à chaque fois. Il faut juste que le nouveau mail s'ouvre avec la pièce jointe ainsi qu'avec l'objet du mail (ce que je veux ajouter).
Jérémy
--
Cordialement,
Jacques.
Jérémy a écrit :
Si tu ne veux pas que le mail parte automatiquement, tu peux utiliser :
Dim OL As Outlook.Application
Dim EMail As Outlook.MailItem
Set OL = New Outlook.Application
Set EMail = OL.CreateItem(olMailItem)
With EMail
.Attachments.Add ("c:toto.xls")
'.To = "nom.prenom@fai.fr"
.Subject = Range("A1")
.Display
End With
Bonjour Jean-François,
Merci pour le lien.
Néanmoins, je ne souhaites pas que le mail soit envoyé automatiquement
du fait que le destinataire du mail n'est pas identique à chaque fois.
Il faut juste que le nouveau mail s'ouvre avec la pièce jointe ainsi
qu'avec l'objet du mail (ce que je veux ajouter).
Jérémy a écrit : Si tu ne veux pas que le mail parte automatiquement, tu peux utiliser :
Dim OL As Outlook.Application Dim EMail As Outlook.MailItem
Set OL = New Outlook.Application Set EMail = OL.CreateItem(olMailItem) With EMail .Attachments.Add ("c:toto.xls") '.To = "" .Subject = Range("A1") .Display End With
Bonjour Jean-François,
Merci pour le lien. Néanmoins, je ne souhaites pas que le mail soit envoyé automatiquement du fait que le destinataire du mail n'est pas identique à chaque fois. Il faut juste que le nouveau mail s'ouvre avec la pièce jointe ainsi qu'avec l'objet du mail (ce que je veux ajouter).
