-----Message d'origine-----
Salut Clément
Le 17/11/2004 20:05 vous avez écrit ceci :Pas banal pantoute, ce site.
ca veut dire quoi ce mot "pantoute" ? je connais
vraiment pas
--
JièL Pas en toutes
.
-----Message d'origine-----
Salut Clément
Le 17/11/2004 20:05 vous avez écrit ceci :
Pas banal pantoute, ce site.
ca veut dire quoi ce mot "pantoute" ? je connais
vraiment pas
--
JièL Pas en toutes
.
-----Message d'origine-----
Salut Clément
Le 17/11/2004 20:05 vous avez écrit ceci :Pas banal pantoute, ce site.
ca veut dire quoi ce mot "pantoute" ? je connais
vraiment pas
--
JièL Pas en toutes
.
-----Message d'origine-----
Salut Clément
Le 17/11/2004 20:05 vous avez écrit ceci :Pas banal pantoute, ce site.
ca veut dire quoi ce mot "pantoute" ? je connais
vraiment pas
--
JièL Pas en toutes
.
-----Message d'origine-----
Salut Clément
Le 17/11/2004 20:05 vous avez écrit ceci :
Pas banal pantoute, ce site.
ca veut dire quoi ce mot "pantoute" ? je connais
vraiment pas
--
JièL Pas en toutes
.
-----Message d'origine-----
Salut Clément
Le 17/11/2004 20:05 vous avez écrit ceci :Pas banal pantoute, ce site.
ca veut dire quoi ce mot "pantoute" ? je connais
vraiment pas
--
JièL Pas en toutes
.
Bonjour,
J'ai pris la solution de Patrick Fredin (merci à lui) qui a l'avantage
de la simplicité, mais sans copie du message envoyé sur le logiciel de
messagerie usuel de Microsoft (Outlook ou Outlook Express). En ce qui me
concerne ça m'encombrerait plutôt, donc c'est mieux.
Après avoir coché dans les références "Microsoft CDO For Exchange 2000
Library"
Sur XL :
en A1 l'adresse
en B1 le sujet
en C3 le corps du texte
il suffit de supprimer le ' devant AddAttachment pour pouvoir également
envoyer une pièce jointe. J'ai essayé et ça marche aussi.
Sub emailCDO()
Dim Message As New CDO.Message
With Message
.To = Range("A1").Value
.From = """mon nom"""
.Subject = Range("B1").Value
.TextBody = Range("C1").Value
' .AddAttachment ("c:cheminfichier.ext")
.Send
End With
Set Message = Nothing
End Sub
merci à tous
a+
Bonjour,
J'ai pris la solution de Patrick Fredin (merci à lui) qui a l'avantage
de la simplicité, mais sans copie du message envoyé sur le logiciel de
messagerie usuel de Microsoft (Outlook ou Outlook Express). En ce qui me
concerne ça m'encombrerait plutôt, donc c'est mieux.
Après avoir coché dans les références "Microsoft CDO For Exchange 2000
Library"
Sur XL :
en A1 l'adresse
en B1 le sujet
en C3 le corps du texte
il suffit de supprimer le ' devant AddAttachment pour pouvoir également
envoyer une pièce jointe. J'ai essayé et ça marche aussi.
Sub emailCDO()
Dim Message As New CDO.Message
With Message
.To = Range("A1").Value
.From = """mon nom""<monemail@mondomaine.fr>"
.Subject = Range("B1").Value
.TextBody = Range("C1").Value
' .AddAttachment ("c:cheminfichier.ext")
.Send
End With
Set Message = Nothing
End Sub
merci à tous
a+
Bonjour,
J'ai pris la solution de Patrick Fredin (merci à lui) qui a l'avantage
de la simplicité, mais sans copie du message envoyé sur le logiciel de
messagerie usuel de Microsoft (Outlook ou Outlook Express). En ce qui me
concerne ça m'encombrerait plutôt, donc c'est mieux.
Après avoir coché dans les références "Microsoft CDO For Exchange 2000
Library"
Sur XL :
en A1 l'adresse
en B1 le sujet
en C3 le corps du texte
il suffit de supprimer le ' devant AddAttachment pour pouvoir également
envoyer une pièce jointe. J'ai essayé et ça marche aussi.
Sub emailCDO()
Dim Message As New CDO.Message
With Message
.To = Range("A1").Value
.From = """mon nom"""
.Subject = Range("B1").Value
.TextBody = Range("C1").Value
' .AddAttachment ("c:cheminfichier.ext")
.Send
End With
Set Message = Nothing
End Sub
merci à tous
a+
notament la première phrase dédiée à "El Cordoba postale
del Gineste"
;o)))
notament la première phrase dédiée à "El Cordoba postale
del Gineste"
;o)))
notament la première phrase dédiée à "El Cordoba postale
del Gineste"
;o)))
-----Message d'origine-----
Bonjoir(c)
t'as beau te cacher, on te reconnais ;-)
JièL niaise souvent à chauffer son char comme un capoté
;-)))))
-----Message d'origine-----
Bonjoir(c) anonymous@discussions.microsoft.com
t'as beau te cacher, on te reconnais ;-)
JièL niaise souvent à chauffer son char comme un capoté
;-)))))
-----Message d'origine-----
Bonjoir(c)
t'as beau te cacher, on te reconnais ;-)
JièL niaise souvent à chauffer son char comme un capoté
;-)))))
-----Message d'origine-----
Bonjoir(c) Gilgamesh
il y a aussi cette solution sans utiliser le
référencement de CDO
extrait de
http://users.skynet.be/accesshome/outlook.htm#SendMailMAPI
-------------
On peut s'affranchir de référencer la bibliothèque avec
la syntaxe suivante :
Sub SendMailCDO()
' Déclaration tardive ("Late Binding")
Dim Cdo_Message As Object
Set Cdo_Message = CreateObject("CDO.Message")
With Cdo_Message
.To = ""
.from = """Emetteur"""
.Subject = "Le Sujet"
.TextBody = "Le Corps du message"
'.AddAttachment ("c:cheminfichier.ext")
.Send
End With
Set Cdo_Message = Nothing
End Sub
--------------
--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
*********************************************************
**************
Enquète sur les communautés techniques en France
http://www.sphinxonline.net/sphinxbrasil/quest-
cerag/questionnaire.htm
*********************************************************
**************
Le 18/11/2004 10:26 vous avez écrit ceci :
Bonjour,
J'ai pris la solution de Patrick Fredin (merci à lui)
qui a l'avantage
de la simplicité, mais sans copie du message envoyé
sur le logiciel de
messagerie usuel de Microsoft (Outlook ou Outlook
Express). En ce qui me
concerne ça m'encombrerait plutôt, donc c'est mieux.
Après avoir coché dans les références "Microsoft CDO
For Exchange 2000
Library"
Sur XL :
en A1 l'adresse
en B1 le sujet
en C3 le corps du texte
il suffit de supprimer le ' devant AddAttachment pour
pouvoir également
envoyer une pièce jointe. J'ai essayé et ça marche
aussi.
Sub emailCDO()
Dim Message As New CDO.Message
With Message
.To = Range("A1").Value
.From = """mon nom"""
.Subject = Range("B1").Value
.TextBody = Range("C1").Value
' .AddAttachment ("c:cheminfichier.ext")
.Send
End With
Set Message = Nothing
End Sub
merci à tous
a+
.
-----Message d'origine-----
Bonjoir(c) Gilgamesh
il y a aussi cette solution sans utiliser le
référencement de CDO
extrait de
http://users.skynet.be/accesshome/outlook.htm#SendMailMAPI
-------------
On peut s'affranchir de référencer la bibliothèque avec
la syntaxe suivante :
Sub SendMailCDO()
' Déclaration tardive ("Late Binding")
Dim Cdo_Message As Object
Set Cdo_Message = CreateObject("CDO.Message")
With Cdo_Message
.To = "destinataire@domaine.fr"
.from = """Emetteur""<emetteur@domaine.com>"
.Subject = "Le Sujet"
.TextBody = "Le Corps du message"
'.AddAttachment ("c:cheminfichier.ext")
.Send
End With
Set Cdo_Message = Nothing
End Sub
--------------
--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
*********************************************************
**************
Enquète sur les communautés techniques en France
http://www.sphinxonline.net/sphinxbrasil/quest-
cerag/questionnaire.htm
*********************************************************
**************
Le 18/11/2004 10:26 vous avez écrit ceci :
Bonjour,
J'ai pris la solution de Patrick Fredin (merci à lui)
qui a l'avantage
de la simplicité, mais sans copie du message envoyé
sur le logiciel de
messagerie usuel de Microsoft (Outlook ou Outlook
Express). En ce qui me
concerne ça m'encombrerait plutôt, donc c'est mieux.
Après avoir coché dans les références "Microsoft CDO
For Exchange 2000
Library"
Sur XL :
en A1 l'adresse
en B1 le sujet
en C3 le corps du texte
il suffit de supprimer le ' devant AddAttachment pour
pouvoir également
envoyer une pièce jointe. J'ai essayé et ça marche
aussi.
Sub emailCDO()
Dim Message As New CDO.Message
With Message
.To = Range("A1").Value
.From = """mon nom""<monemail@mondomaine.fr>"
.Subject = Range("B1").Value
.TextBody = Range("C1").Value
' .AddAttachment ("c:cheminfichier.ext")
.Send
End With
Set Message = Nothing
End Sub
merci à tous
a+
.
-----Message d'origine-----
Bonjoir(c) Gilgamesh
il y a aussi cette solution sans utiliser le
référencement de CDO
extrait de
http://users.skynet.be/accesshome/outlook.htm#SendMailMAPI
-------------
On peut s'affranchir de référencer la bibliothèque avec
la syntaxe suivante :
Sub SendMailCDO()
' Déclaration tardive ("Late Binding")
Dim Cdo_Message As Object
Set Cdo_Message = CreateObject("CDO.Message")
With Cdo_Message
.To = ""
.from = """Emetteur"""
.Subject = "Le Sujet"
.TextBody = "Le Corps du message"
'.AddAttachment ("c:cheminfichier.ext")
.Send
End With
Set Cdo_Message = Nothing
End Sub
--------------
--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
*********************************************************
**************
Enquète sur les communautés techniques en France
http://www.sphinxonline.net/sphinxbrasil/quest-
cerag/questionnaire.htm
*********************************************************
**************
Le 18/11/2004 10:26 vous avez écrit ceci :
Bonjour,
J'ai pris la solution de Patrick Fredin (merci à lui)
qui a l'avantage
de la simplicité, mais sans copie du message envoyé
sur le logiciel de
messagerie usuel de Microsoft (Outlook ou Outlook
Express). En ce qui me
concerne ça m'encombrerait plutôt, donc c'est mieux.
Après avoir coché dans les références "Microsoft CDO
For Exchange 2000
Library"
Sur XL :
en A1 l'adresse
en B1 le sujet
en C3 le corps du texte
il suffit de supprimer le ' devant AddAttachment pour
pouvoir également
envoyer une pièce jointe. J'ai essayé et ça marche
aussi.
Sub emailCDO()
Dim Message As New CDO.Message
With Message
.To = Range("A1").Value
.From = """mon nom"""
.Subject = Range("B1").Value
.TextBody = Range("C1").Value
' .AddAttachment ("c:cheminfichier.ext")
.Send
End With
Set Message = Nothing
End Sub
merci à tous
a+
.
Bonsour ® JièL(c) "del Gineste" !!!!
pas tout à fait HS
Une mine ce site :
http://users.skynet.be/accesshome/outlook.htm
comment s'appelle la DLL :
"Microsoft Outlook x.x Object Library"
et ou se trouve-t-elle ?
je n'arrive pas à faire fonctionner certains exemples,
faute de pouvoir cocher cette référence.
Merci
@+-----Message d'origine-----
Bonjoir(c) Gilgamesh
il y a aussi cette solution sans utiliser le
référencement de CDOextrait de
http://users.skynet.be/accesshome/outlook.htm#SendMailMAPI-------------
On peut s'affranchir de référencer la bibliothèque avec
la syntaxe suivante :Sub SendMailCDO()
' Déclaration tardive ("Late Binding")
Dim Cdo_Message As Object
Set Cdo_Message = CreateObject("CDO.Message")
With Cdo_Message
.To = ""
.from = """Emetteur"""
.Subject = "Le Sujet"
.TextBody = "Le Corps du message"
'.AddAttachment ("c:cheminfichier.ext")
.Send
End With
Set Cdo_Message = Nothing
End Sub
--------------
--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
*********************************************************
**************Enquète sur les communautés techniques en France
http://www.sphinxonline.net/sphinxbrasil/quest-
cerag/questionnaire.htm*********************************************************
**************Le 18/11/2004 10:26 vous avez écrit ceci :Bonjour,
J'ai pris la solution de Patrick Fredin (merci à lui)
qui a l'avantagede la simplicité, mais sans copie du message envoyé
sur le logiciel demessagerie usuel de Microsoft (Outlook ou Outlook
Express). En ce qui meconcerne ça m'encombrerait plutôt, donc c'est mieux.
Après avoir coché dans les références "Microsoft CDO
For Exchange 2000Library"
Sur XL :
en A1 l'adresse
en B1 le sujet
en C3 le corps du texte
il suffit de supprimer le ' devant AddAttachment pour
pouvoir égalementenvoyer une pièce jointe. J'ai essayé et ça marche
aussi.Sub emailCDO()
Dim Message As New CDO.Message
With Message
.To = Range("A1").Value
.From = """mon nom"""
.Subject = Range("B1").Value
.TextBody = Range("C1").Value
' .AddAttachment ("c:cheminfichier.ext")
.Send
End With
Set Message = Nothing
End Sub
merci à tous
a+
.
Bonsour ® JièL(c) "del Gineste" !!!!
pas tout à fait HS
Une mine ce site :
http://users.skynet.be/accesshome/outlook.htm
comment s'appelle la DLL :
"Microsoft Outlook x.x Object Library"
et ou se trouve-t-elle ?
je n'arrive pas à faire fonctionner certains exemples,
faute de pouvoir cocher cette référence.
Merci
@+
-----Message d'origine-----
Bonjoir(c) Gilgamesh
il y a aussi cette solution sans utiliser le
référencement de CDO
extrait de
http://users.skynet.be/accesshome/outlook.htm#SendMailMAPI
-------------
On peut s'affranchir de référencer la bibliothèque avec
la syntaxe suivante :
Sub SendMailCDO()
' Déclaration tardive ("Late Binding")
Dim Cdo_Message As Object
Set Cdo_Message = CreateObject("CDO.Message")
With Cdo_Message
.To = "destinataire@domaine.fr"
.from = """Emetteur""<emetteur@domaine.com>"
.Subject = "Le Sujet"
.TextBody = "Le Corps du message"
'.AddAttachment ("c:cheminfichier.ext")
.Send
End With
Set Cdo_Message = Nothing
End Sub
--------------
--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
*********************************************************
**************
Enquète sur les communautés techniques en France
http://www.sphinxonline.net/sphinxbrasil/quest-
cerag/questionnaire.htm
*********************************************************
**************
Le 18/11/2004 10:26 vous avez écrit ceci :
Bonjour,
J'ai pris la solution de Patrick Fredin (merci à lui)
qui a l'avantage
de la simplicité, mais sans copie du message envoyé
sur le logiciel de
messagerie usuel de Microsoft (Outlook ou Outlook
Express). En ce qui me
concerne ça m'encombrerait plutôt, donc c'est mieux.
Après avoir coché dans les références "Microsoft CDO
For Exchange 2000
Library"
Sur XL :
en A1 l'adresse
en B1 le sujet
en C3 le corps du texte
il suffit de supprimer le ' devant AddAttachment pour
pouvoir également
envoyer une pièce jointe. J'ai essayé et ça marche
aussi.
Sub emailCDO()
Dim Message As New CDO.Message
With Message
.To = Range("A1").Value
.From = """mon nom""<monemail@mondomaine.fr>"
.Subject = Range("B1").Value
.TextBody = Range("C1").Value
' .AddAttachment ("c:cheminfichier.ext")
.Send
End With
Set Message = Nothing
End Sub
merci à tous
a+
.
Bonsour ® JièL(c) "del Gineste" !!!!
pas tout à fait HS
Une mine ce site :
http://users.skynet.be/accesshome/outlook.htm
comment s'appelle la DLL :
"Microsoft Outlook x.x Object Library"
et ou se trouve-t-elle ?
je n'arrive pas à faire fonctionner certains exemples,
faute de pouvoir cocher cette référence.
Merci
@+-----Message d'origine-----
Bonjoir(c) Gilgamesh
il y a aussi cette solution sans utiliser le
référencement de CDOextrait de
http://users.skynet.be/accesshome/outlook.htm#SendMailMAPI-------------
On peut s'affranchir de référencer la bibliothèque avec
la syntaxe suivante :Sub SendMailCDO()
' Déclaration tardive ("Late Binding")
Dim Cdo_Message As Object
Set Cdo_Message = CreateObject("CDO.Message")
With Cdo_Message
.To = ""
.from = """Emetteur"""
.Subject = "Le Sujet"
.TextBody = "Le Corps du message"
'.AddAttachment ("c:cheminfichier.ext")
.Send
End With
Set Cdo_Message = Nothing
End Sub
--------------
--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
*********************************************************
**************Enquète sur les communautés techniques en France
http://www.sphinxonline.net/sphinxbrasil/quest-
cerag/questionnaire.htm*********************************************************
**************Le 18/11/2004 10:26 vous avez écrit ceci :Bonjour,
J'ai pris la solution de Patrick Fredin (merci à lui)
qui a l'avantagede la simplicité, mais sans copie du message envoyé
sur le logiciel demessagerie usuel de Microsoft (Outlook ou Outlook
Express). En ce qui meconcerne ça m'encombrerait plutôt, donc c'est mieux.
Après avoir coché dans les références "Microsoft CDO
For Exchange 2000Library"
Sur XL :
en A1 l'adresse
en B1 le sujet
en C3 le corps du texte
il suffit de supprimer le ' devant AddAttachment pour
pouvoir égalementenvoyer une pièce jointe. J'ai essayé et ça marche
aussi.Sub emailCDO()
Dim Message As New CDO.Message
With Message
.To = Range("A1").Value
.From = """mon nom"""
.Subject = Range("B1").Value
.TextBody = Range("C1").Value
' .AddAttachment ("c:cheminfichier.ext")
.Send
End With
Set Message = Nothing
End Sub
merci à tous
a+
.
Bonsour ® JièL(c) "del Gineste" !!!!
comment s'appelle la DLL :
"Microsoft Outlook x.x Object Library"
et ou se trouve-t-elle ?
Bonsour ® JièL(c) "del Gineste" !!!!
comment s'appelle la DLL :
"Microsoft Outlook x.x Object Library"
et ou se trouve-t-elle ?
Bonsour ® JièL(c) "del Gineste" !!!!
comment s'appelle la DLL :
"Microsoft Outlook x.x Object Library"
et ou se trouve-t-elle ?