Bonsoir,
Je souhaiterais écrire une macro qui me permette d'envoyer un fichier
Excel
"toto" par internet à un destinataire dont l'adresse figure en cellule A1
par exemple.
Je n'arrive pas à automatiser complètement cette macro
Merci du coup de main,
Michel,
Bonsoir,
Je souhaiterais écrire une macro qui me permette d'envoyer un fichier
Excel
"toto" par internet à un destinataire dont l'adresse figure en cellule A1
par exemple.
Je n'arrive pas à automatiser complètement cette macro
Merci du coup de main,
Michel,
Bonsoir,
Je souhaiterais écrire une macro qui me permette d'envoyer un fichier
Excel
"toto" par internet à un destinataire dont l'adresse figure en cellule A1
par exemple.
Je n'arrive pas à automatiser complètement cette macro
Merci du coup de main,
Michel,
Bonsoir Michel,
A adapter aux besoins
ActiveWorkbook.SendMail Recipients:=Range("a1"), Subject:="objet du
message", ReturnReceipt:=True
mess = " corps du message"
Cordialement
Hervé
"michir" a écrit dans le message de news:
4199072e$0$3277$Bonsoir,
Je souhaiterais écrire une macro qui me permette d'envoyer un fichier
Excel
"toto" par internet à un destinataire dont l'adresse figure en cellule
A1
par exemple.
Je n'arrive pas à automatiser complètement cette macro
Merci du coup de main,
Michel,
Bonsoir Michel,
A adapter aux besoins
ActiveWorkbook.SendMail Recipients:=Range("a1"), Subject:="objet du
message", ReturnReceipt:=True
mess = " corps du message"
Cordialement
Hervé
"michir" <michir1789@wanadoo.fr> a écrit dans le message de news:
4199072e$0$3277$8fcfb975@news.wanadoo.fr...
Bonsoir,
Je souhaiterais écrire une macro qui me permette d'envoyer un fichier
Excel
"toto" par internet à un destinataire dont l'adresse figure en cellule
A1
par exemple.
Je n'arrive pas à automatiser complètement cette macro
Merci du coup de main,
Michel,
Bonsoir Michel,
A adapter aux besoins
ActiveWorkbook.SendMail Recipients:=Range("a1"), Subject:="objet du
message", ReturnReceipt:=True
mess = " corps du message"
Cordialement
Hervé
"michir" a écrit dans le message de news:
4199072e$0$3277$Bonsoir,
Je souhaiterais écrire une macro qui me permette d'envoyer un fichier
Excel
"toto" par internet à un destinataire dont l'adresse figure en cellule
A1
par exemple.
Je n'arrive pas à automatiser complètement cette macro
Merci du coup de main,
Michel,
J'ai essayé RV, mais cela bloque sur Message. Je précise que mon fichier à
envoyer s'appelle "Questionnaire":
Sub outLook()
ActiveWorkbook.SendMail Recipients:=Range("b3"), Subject:="Questionnaire "
Message ", ReturnReceipt:=True"
mess = " corps du message"
End Sub
A bientôt pour la suite,
Michel
"RV" a écrit dans le message de news:
#Bonsoir Michel,
A adapter aux besoins
ActiveWorkbook.SendMail Recipients:=Range("a1"), Subject:="objet du
message", ReturnReceipt:=True
mess = " corps du message"
Cordialement
Hervé
"michir" a écrit dans le message de news:
4199072e$0$3277$Bonsoir,
Je souhaiterais écrire une macro qui me permette d'envoyer un fichier
Excel
"toto" par internet à un destinataire dont l'adresse figure en cellule
A1par exemple.
Je n'arrive pas à automatiser complètement cette macro
Merci du coup de main,
Michel,
J'ai essayé RV, mais cela bloque sur Message. Je précise que mon fichier à
envoyer s'appelle "Questionnaire":
Sub outLook()
ActiveWorkbook.SendMail Recipients:=Range("b3"), Subject:="Questionnaire "
Message ", ReturnReceipt:=True"
mess = " corps du message"
End Sub
A bientôt pour la suite,
Michel
"RV" <dick.pitt@rv.fr> a écrit dans le message de news:
#XSqn20yEHA.344@TK2MSFTNGP10.phx.gbl...
Bonsoir Michel,
A adapter aux besoins
ActiveWorkbook.SendMail Recipients:=Range("a1"), Subject:="objet du
message", ReturnReceipt:=True
mess = " corps du message"
Cordialement
Hervé
"michir" <michir1789@wanadoo.fr> a écrit dans le message de news:
4199072e$0$3277$8fcfb975@news.wanadoo.fr...
Bonsoir,
Je souhaiterais écrire une macro qui me permette d'envoyer un fichier
Excel
"toto" par internet à un destinataire dont l'adresse figure en cellule
A1
par exemple.
Je n'arrive pas à automatiser complètement cette macro
Merci du coup de main,
Michel,
J'ai essayé RV, mais cela bloque sur Message. Je précise que mon fichier à
envoyer s'appelle "Questionnaire":
Sub outLook()
ActiveWorkbook.SendMail Recipients:=Range("b3"), Subject:="Questionnaire "
Message ", ReturnReceipt:=True"
mess = " corps du message"
End Sub
A bientôt pour la suite,
Michel
"RV" a écrit dans le message de news:
#Bonsoir Michel,
A adapter aux besoins
ActiveWorkbook.SendMail Recipients:=Range("a1"), Subject:="objet du
message", ReturnReceipt:=True
mess = " corps du message"
Cordialement
Hervé
"michir" a écrit dans le message de news:
4199072e$0$3277$Bonsoir,
Je souhaiterais écrire une macro qui me permette d'envoyer un fichier
Excel
"toto" par internet à un destinataire dont l'adresse figure en cellule
A1par exemple.
Je n'arrive pas à automatiser complètement cette macro
Merci du coup de main,
Michel,
J'ai essayé RV, mais cela bloque sur Message. Je précise que mon fichier à
envoyer s'appelle "Questionnaire":
Sub outLook()
ActiveWorkbook.SendMail Recipients:=Range("b3"), Subject:="Questionnaire "
Message ", ReturnReceipt:=True"
mess = " corps du message"
End Sub
A bientôt pour la suite,
Michel
"RV" a écrit dans le message de news:
#Bonsoir Michel,
A adapter aux besoins
ActiveWorkbook.SendMail Recipients:=Range("a1"), Subject:="objet du
message", ReturnReceipt:=True
mess = " corps du message"
Cordialement
Hervé
"michir" a écrit dans le message de news:
4199072e$0$3277$Bonsoir,
Je souhaiterais écrire une macro qui me permette d'envoyer un fichier
Excel
"toto" par internet à un destinataire dont l'adresse figure en cellule
A1par exemple.
Je n'arrive pas à automatiser complètement cette macro
Merci du coup de main,
Michel,
J'ai essayé RV, mais cela bloque sur Message. Je précise que mon fichier à
envoyer s'appelle "Questionnaire":
Sub outLook()
ActiveWorkbook.SendMail Recipients:=Range("b3"), Subject:="Questionnaire "
Message ", ReturnReceipt:=True"
mess = " corps du message"
End Sub
A bientôt pour la suite,
Michel
"RV" <dick.pitt@rv.fr> a écrit dans le message de news:
#XSqn20yEHA.344@TK2MSFTNGP10.phx.gbl...
Bonsoir Michel,
A adapter aux besoins
ActiveWorkbook.SendMail Recipients:=Range("a1"), Subject:="objet du
message", ReturnReceipt:=True
mess = " corps du message"
Cordialement
Hervé
"michir" <michir1789@wanadoo.fr> a écrit dans le message de news:
4199072e$0$3277$8fcfb975@news.wanadoo.fr...
Bonsoir,
Je souhaiterais écrire une macro qui me permette d'envoyer un fichier
Excel
"toto" par internet à un destinataire dont l'adresse figure en cellule
A1
par exemple.
Je n'arrive pas à automatiser complètement cette macro
Merci du coup de main,
Michel,
J'ai essayé RV, mais cela bloque sur Message. Je précise que mon fichier à
envoyer s'appelle "Questionnaire":
Sub outLook()
ActiveWorkbook.SendMail Recipients:=Range("b3"), Subject:="Questionnaire "
Message ", ReturnReceipt:=True"
mess = " corps du message"
End Sub
A bientôt pour la suite,
Michel
"RV" a écrit dans le message de news:
#Bonsoir Michel,
A adapter aux besoins
ActiveWorkbook.SendMail Recipients:=Range("a1"), Subject:="objet du
message", ReturnReceipt:=True
mess = " corps du message"
Cordialement
Hervé
"michir" a écrit dans le message de news:
4199072e$0$3277$Bonsoir,
Je souhaiterais écrire une macro qui me permette d'envoyer un fichier
Excel
"toto" par internet à un destinataire dont l'adresse figure en cellule
A1par exemple.
Je n'arrive pas à automatiser complètement cette macro
Merci du coup de main,
Michel,
J'ai essayé RV, mais cela bloque sur Message. Je précise que mon fichier à
envoyer s'appelle "Questionnaire":
Sub outLook()
ActiveWorkbook.SendMail Recipients:=Range("b3"), Subject:="Questionnaire "
Message ", ReturnReceipt:=True"
mess = " corps du message"
End Sub
A bientôt pour la suite,
Michel
"RV" a écrit dans le message de news:
#Bonsoir Michel,
A adapter aux besoins
ActiveWorkbook.SendMail Recipients:=Range("a1"), Subject:="objet du
message", ReturnReceipt:=True
mess = " corps du message"
Cordialement
Hervé
"michir" a écrit dans le message de news:
4199072e$0$3277$Bonsoir,
Je souhaiterais écrire une macro qui me permette d'envoyer un fichier
Excel
"toto" par internet à un destinataire dont l'adresse figure en cellule
A1par exemple.
Je n'arrive pas à automatiser complètement cette macro
Merci du coup de main,
Michel,
J'ai essayé RV, mais cela bloque sur Message. Je précise que mon fichier à
envoyer s'appelle "Questionnaire":
Sub outLook()
ActiveWorkbook.SendMail Recipients:=Range("b3"), Subject:="Questionnaire "
Message ", ReturnReceipt:=True"
mess = " corps du message"
End Sub
A bientôt pour la suite,
Michel
"RV" <dick.pitt@rv.fr> a écrit dans le message de news:
#XSqn20yEHA.344@TK2MSFTNGP10.phx.gbl...
Bonsoir Michel,
A adapter aux besoins
ActiveWorkbook.SendMail Recipients:=Range("a1"), Subject:="objet du
message", ReturnReceipt:=True
mess = " corps du message"
Cordialement
Hervé
"michir" <michir1789@wanadoo.fr> a écrit dans le message de news:
4199072e$0$3277$8fcfb975@news.wanadoo.fr...
Bonsoir,
Je souhaiterais écrire une macro qui me permette d'envoyer un fichier
Excel
"toto" par internet à un destinataire dont l'adresse figure en cellule
A1
par exemple.
Je n'arrive pas à automatiser complètement cette macro
Merci du coup de main,
Michel,
J'ai essayé RV, mais cela bloque sur Message. Je précise que mon fichier à
envoyer s'appelle "Questionnaire":
Sub outLook()
ActiveWorkbook.SendMail Recipients:=Range("b3"), Subject:="Questionnaire "
Message ", ReturnReceipt:=True"
mess = " corps du message"
End Sub
A bientôt pour la suite,
Michel
"RV" a écrit dans le message de news:
#Bonsoir Michel,
A adapter aux besoins
ActiveWorkbook.SendMail Recipients:=Range("a1"), Subject:="objet du
message", ReturnReceipt:=True
mess = " corps du message"
Cordialement
Hervé
"michir" a écrit dans le message de news:
4199072e$0$3277$Bonsoir,
Je souhaiterais écrire une macro qui me permette d'envoyer un fichier
Excel
"toto" par internet à un destinataire dont l'adresse figure en cellule
A1par exemple.
Je n'arrive pas à automatiser complètement cette macro
Merci du coup de main,
Michel,
Message ",
"michir" a écrit dans le message de news:
J'ai essayé RV, mais cela bloque sur Message. Je précise que mon fichier à
envoyer s'appelle "Questionnaire":
Sub outLook()
ActiveWorkbook.SendMail Recipients:=Range("b3"), Subject:="Questionnaire "
Message ", ReturnReceipt:=True"
mess = " corps du message"
End Sub
A bientôt pour la suite,
Michel
"RV" a écrit dans le message de news:
#Bonsoir Michel,
A adapter aux besoins
ActiveWorkbook.SendMail Recipients:=Range("a1"), Subject:="objet du
message", ReturnReceipt:=True
mess = " corps du message"
Cordialement
Hervé
"michir" a écrit dans le message de news:
4199072e$0$3277$Bonsoir,
Je souhaiterais écrire une macro qui me permette d'envoyer un fichier
Excel
"toto" par internet à un destinataire dont l'adresse figure en cellule
A1par exemple.
Je n'arrive pas à automatiser complètement cette macro
Merci du coup de main,
Michel,
Message ",
"michir" <michir1789@wanadoo.fr> a écrit dans le message de news:
J'ai essayé RV, mais cela bloque sur Message. Je précise que mon fichier à
envoyer s'appelle "Questionnaire":
Sub outLook()
ActiveWorkbook.SendMail Recipients:=Range("b3"), Subject:="Questionnaire "
Message ", ReturnReceipt:=True"
mess = " corps du message"
End Sub
A bientôt pour la suite,
Michel
"RV" <dick.pitt@rv.fr> a écrit dans le message de news:
#XSqn20yEHA.344@TK2MSFTNGP10.phx.gbl...
Bonsoir Michel,
A adapter aux besoins
ActiveWorkbook.SendMail Recipients:=Range("a1"), Subject:="objet du
message", ReturnReceipt:=True
mess = " corps du message"
Cordialement
Hervé
"michir" <michir1789@wanadoo.fr> a écrit dans le message de news:
4199072e$0$3277$8fcfb975@news.wanadoo.fr...
Bonsoir,
Je souhaiterais écrire une macro qui me permette d'envoyer un fichier
Excel
"toto" par internet à un destinataire dont l'adresse figure en cellule
A1
par exemple.
Je n'arrive pas à automatiser complètement cette macro
Merci du coup de main,
Michel,
Message ",
"michir" a écrit dans le message de news:
J'ai essayé RV, mais cela bloque sur Message. Je précise que mon fichier à
envoyer s'appelle "Questionnaire":
Sub outLook()
ActiveWorkbook.SendMail Recipients:=Range("b3"), Subject:="Questionnaire "
Message ", ReturnReceipt:=True"
mess = " corps du message"
End Sub
A bientôt pour la suite,
Michel
"RV" a écrit dans le message de news:
#Bonsoir Michel,
A adapter aux besoins
ActiveWorkbook.SendMail Recipients:=Range("a1"), Subject:="objet du
message", ReturnReceipt:=True
mess = " corps du message"
Cordialement
Hervé
"michir" a écrit dans le message de news:
4199072e$0$3277$Bonsoir,
Je souhaiterais écrire une macro qui me permette d'envoyer un fichier
Excel
"toto" par internet à un destinataire dont l'adresse figure en cellule
A1par exemple.
Je n'arrive pas à automatiser complètement cette macro
Merci du coup de main,
Michel,
coorige ainsi michdir
Message = " ReturnReceipt:=True"
jps
"michir" a écrit dans le message de
news:41991093$0$3306$J'ai essayé RV, mais cela bloque sur Message. Je précise que mon fichier
à
envoyer s'appelle "Questionnaire":
Sub outLook()
ActiveWorkbook.SendMail Recipients:=Range("b3"), Subject:="Questionnaire
"
Message ", ReturnReceipt:=True"
mess = " corps du message"
End Sub
A bientôt pour la suite,
Michel
"RV" a écrit dans le message de news:
#Bonsoir Michel,
A adapter aux besoins
ActiveWorkbook.SendMail Recipients:=Range("a1"), Subject:="objet du
message", ReturnReceipt:=True
mess = " corps du message"
Cordialement
Hervé
"michir" a écrit dans le message de news:
4199072e$0$3277$Bonsoir,
Je souhaiterais écrire une macro qui me permette d'envoyer un
fichier
Excel
"toto" par internet à un destinataire dont l'adresse figure en
cellule
A1par exemple.
Je n'arrive pas à automatiser complètement cette macro
Merci du coup de main,
Michel,
coorige ainsi michdir
Message = " ReturnReceipt:=True"
jps
"michir" <michir1789@wanadoo.fr> a écrit dans le message de
news:41991093$0$3306$8fcfb975@news.wanadoo.fr...
J'ai essayé RV, mais cela bloque sur Message. Je précise que mon fichier
à
envoyer s'appelle "Questionnaire":
Sub outLook()
ActiveWorkbook.SendMail Recipients:=Range("b3"), Subject:="Questionnaire
"
Message ", ReturnReceipt:=True"
mess = " corps du message"
End Sub
A bientôt pour la suite,
Michel
"RV" <dick.pitt@rv.fr> a écrit dans le message de news:
#XSqn20yEHA.344@TK2MSFTNGP10.phx.gbl...
Bonsoir Michel,
A adapter aux besoins
ActiveWorkbook.SendMail Recipients:=Range("a1"), Subject:="objet du
message", ReturnReceipt:=True
mess = " corps du message"
Cordialement
Hervé
"michir" <michir1789@wanadoo.fr> a écrit dans le message de news:
4199072e$0$3277$8fcfb975@news.wanadoo.fr...
Bonsoir,
Je souhaiterais écrire une macro qui me permette d'envoyer un
fichier
Excel
"toto" par internet à un destinataire dont l'adresse figure en
cellule
A1
par exemple.
Je n'arrive pas à automatiser complètement cette macro
Merci du coup de main,
Michel,
coorige ainsi michdir
Message = " ReturnReceipt:=True"
jps
"michir" a écrit dans le message de
news:41991093$0$3306$J'ai essayé RV, mais cela bloque sur Message. Je précise que mon fichier
à
envoyer s'appelle "Questionnaire":
Sub outLook()
ActiveWorkbook.SendMail Recipients:=Range("b3"), Subject:="Questionnaire
"
Message ", ReturnReceipt:=True"
mess = " corps du message"
End Sub
A bientôt pour la suite,
Michel
"RV" a écrit dans le message de news:
#Bonsoir Michel,
A adapter aux besoins
ActiveWorkbook.SendMail Recipients:=Range("a1"), Subject:="objet du
message", ReturnReceipt:=True
mess = " corps du message"
Cordialement
Hervé
"michir" a écrit dans le message de news:
4199072e$0$3277$Bonsoir,
Je souhaiterais écrire une macro qui me permette d'envoyer un
fichier
Excel
"toto" par internet à un destinataire dont l'adresse figure en
cellule
A1par exemple.
Je n'arrive pas à automatiser complètement cette macro
Merci du coup de main,
Michel,
Michir,
Je m'aperçois qu'il y a un guillemet de trop après ReturnReceipt:=True",
il faut l'écrire sans : ReturnReceipt:=True
Cordialement
HervéMessage ",
"michir" a écrit dans le message de news:
41991093$0$3306$J'ai essayé RV, mais cela bloque sur Message. Je précise que mon fichier
à
envoyer s'appelle "Questionnaire":
Sub outLook()
ActiveWorkbook.SendMail Recipients:=Range("b3"), Subject:="Questionnaire
"
Message ", ReturnReceipt:=True"
mess = " corps du message"
End Sub
A bientôt pour la suite,
Michel
"RV" a écrit dans le message de news:
#Bonsoir Michel,
A adapter aux besoins
ActiveWorkbook.SendMail Recipients:=Range("a1"), Subject:="objet du
message", ReturnReceipt:=True
mess = " corps du message"
Cordialement
Hervé
"michir" a écrit dans le message de news:
4199072e$0$3277$Bonsoir,
Je souhaiterais écrire une macro qui me permette d'envoyer un fichier
Excel
"toto" par internet à un destinataire dont l'adresse figure en
cellule
A1par exemple.
Je n'arrive pas à automatiser complètement cette macro
Merci du coup de main,
Michel,
Michir,
Je m'aperçois qu'il y a un guillemet de trop après ReturnReceipt:=True",
il faut l'écrire sans : ReturnReceipt:=True
Cordialement
Hervé
Message ",
"michir" <michir1789@wanadoo.fr> a écrit dans le message de news:
41991093$0$3306$8fcfb975@news.wanadoo.fr...
J'ai essayé RV, mais cela bloque sur Message. Je précise que mon fichier
à
envoyer s'appelle "Questionnaire":
Sub outLook()
ActiveWorkbook.SendMail Recipients:=Range("b3"), Subject:="Questionnaire
"
Message ", ReturnReceipt:=True"
mess = " corps du message"
End Sub
A bientôt pour la suite,
Michel
"RV" <dick.pitt@rv.fr> a écrit dans le message de news:
#XSqn20yEHA.344@TK2MSFTNGP10.phx.gbl...
Bonsoir Michel,
A adapter aux besoins
ActiveWorkbook.SendMail Recipients:=Range("a1"), Subject:="objet du
message", ReturnReceipt:=True
mess = " corps du message"
Cordialement
Hervé
"michir" <michir1789@wanadoo.fr> a écrit dans le message de news:
4199072e$0$3277$8fcfb975@news.wanadoo.fr...
Bonsoir,
Je souhaiterais écrire une macro qui me permette d'envoyer un fichier
Excel
"toto" par internet à un destinataire dont l'adresse figure en
cellule
A1
par exemple.
Je n'arrive pas à automatiser complètement cette macro
Merci du coup de main,
Michel,
Michir,
Je m'aperçois qu'il y a un guillemet de trop après ReturnReceipt:=True",
il faut l'écrire sans : ReturnReceipt:=True
Cordialement
HervéMessage ",
"michir" a écrit dans le message de news:
41991093$0$3306$J'ai essayé RV, mais cela bloque sur Message. Je précise que mon fichier
à
envoyer s'appelle "Questionnaire":
Sub outLook()
ActiveWorkbook.SendMail Recipients:=Range("b3"), Subject:="Questionnaire
"
Message ", ReturnReceipt:=True"
mess = " corps du message"
End Sub
A bientôt pour la suite,
Michel
"RV" a écrit dans le message de news:
#Bonsoir Michel,
A adapter aux besoins
ActiveWorkbook.SendMail Recipients:=Range("a1"), Subject:="objet du
message", ReturnReceipt:=True
mess = " corps du message"
Cordialement
Hervé
"michir" a écrit dans le message de news:
4199072e$0$3277$Bonsoir,
Je souhaiterais écrire une macro qui me permette d'envoyer un fichier
Excel
"toto" par internet à un destinataire dont l'adresse figure en
cellule
A1par exemple.
Je n'arrive pas à automatiser complètement cette macro
Merci du coup de main,
Michel,
Gloups, jai oublié de joindre la macro modifiée:
Sub outLook()
ActiveWorkbook.SendMail Recipients:=Range("b3"), Subject:="Questionnaire
",
ReturnReceipt:=True
mess = "veuillez trouver ci-joint le questionnaire....."
Application.DisplayAlerts = False
End Sub
Michel,
"RV" a écrit dans le message de news:Michir,
Je m'aperçois qu'il y a un guillemet de trop après ReturnReceipt:=True",
il faut l'écrire sans : ReturnReceipt:=True
Cordialement
HervéMessage ",
"michir" a écrit dans le message de news:
41991093$0$3306$J'ai essayé RV, mais cela bloque sur Message. Je précise que mon
fichier
àenvoyer s'appelle "Questionnaire":
Sub outLook()
ActiveWorkbook.SendMail Recipients:=Range("b3"),
Subject:="Questionnaire
"Message ", ReturnReceipt:=True"
mess = " corps du message"
End Sub
A bientôt pour la suite,
Michel
"RV" a écrit dans le message de news:
#Bonsoir Michel,
A adapter aux besoins
ActiveWorkbook.SendMail Recipients:=Range("a1"), Subject:="objet du
message", ReturnReceipt:=True
mess = " corps du message"
Cordialement
Hervé
"michir" a écrit dans le message de news:
4199072e$0$3277$Bonsoir,
Je souhaiterais écrire une macro qui me permette d'envoyer un
fichier
Excel
"toto" par internet à un destinataire dont l'adresse figure en
celluleA1par exemple.
Je n'arrive pas à automatiser complètement cette macro
Merci du coup de main,
Michel,
Gloups, jai oublié de joindre la macro modifiée:
Sub outLook()
ActiveWorkbook.SendMail Recipients:=Range("b3"), Subject:="Questionnaire
",
ReturnReceipt:=True
mess = "veuillez trouver ci-joint le questionnaire....."
Application.DisplayAlerts = False
End Sub
Michel,
"RV" <dick.pitt@rv.fr> a écrit dans le message de news:
u3fLVS1yEHA.3824@TK2MSFTNGP09.phx.gbl...
Michir,
Je m'aperçois qu'il y a un guillemet de trop après ReturnReceipt:=True",
il faut l'écrire sans : ReturnReceipt:=True
Cordialement
Hervé
Message ",
"michir" <michir1789@wanadoo.fr> a écrit dans le message de news:
41991093$0$3306$8fcfb975@news.wanadoo.fr...
J'ai essayé RV, mais cela bloque sur Message. Je précise que mon
fichier
à
envoyer s'appelle "Questionnaire":
Sub outLook()
ActiveWorkbook.SendMail Recipients:=Range("b3"),
Subject:="Questionnaire
"
Message ", ReturnReceipt:=True"
mess = " corps du message"
End Sub
A bientôt pour la suite,
Michel
"RV" <dick.pitt@rv.fr> a écrit dans le message de news:
#XSqn20yEHA.344@TK2MSFTNGP10.phx.gbl...
Bonsoir Michel,
A adapter aux besoins
ActiveWorkbook.SendMail Recipients:=Range("a1"), Subject:="objet du
message", ReturnReceipt:=True
mess = " corps du message"
Cordialement
Hervé
"michir" <michir1789@wanadoo.fr> a écrit dans le message de news:
4199072e$0$3277$8fcfb975@news.wanadoo.fr...
Bonsoir,
Je souhaiterais écrire une macro qui me permette d'envoyer un
fichier
Excel
"toto" par internet à un destinataire dont l'adresse figure en
cellule
A1
par exemple.
Je n'arrive pas à automatiser complètement cette macro
Merci du coup de main,
Michel,
Gloups, jai oublié de joindre la macro modifiée:
Sub outLook()
ActiveWorkbook.SendMail Recipients:=Range("b3"), Subject:="Questionnaire
",
ReturnReceipt:=True
mess = "veuillez trouver ci-joint le questionnaire....."
Application.DisplayAlerts = False
End Sub
Michel,
"RV" a écrit dans le message de news:Michir,
Je m'aperçois qu'il y a un guillemet de trop après ReturnReceipt:=True",
il faut l'écrire sans : ReturnReceipt:=True
Cordialement
HervéMessage ",
"michir" a écrit dans le message de news:
41991093$0$3306$J'ai essayé RV, mais cela bloque sur Message. Je précise que mon
fichier
àenvoyer s'appelle "Questionnaire":
Sub outLook()
ActiveWorkbook.SendMail Recipients:=Range("b3"),
Subject:="Questionnaire
"Message ", ReturnReceipt:=True"
mess = " corps du message"
End Sub
A bientôt pour la suite,
Michel
"RV" a écrit dans le message de news:
#Bonsoir Michel,
A adapter aux besoins
ActiveWorkbook.SendMail Recipients:=Range("a1"), Subject:="objet du
message", ReturnReceipt:=True
mess = " corps du message"
Cordialement
Hervé
"michir" a écrit dans le message de news:
4199072e$0$3277$Bonsoir,
Je souhaiterais écrire une macro qui me permette d'envoyer un
fichier
Excel
"toto" par internet à un destinataire dont l'adresse figure en
celluleA1par exemple.
Je n'arrive pas à automatiser complètement cette macro
Merci du coup de main,
Michel,
Gloups, jai oublié de joindre la macro modifiée:
Sub outLook()
ActiveWorkbook.SendMail Recipients:=Range("b3"), Subject:="Questionnaire
",
ReturnReceipt:=True
mess = "veuillez trouver ci-joint le questionnaire....."
Application.DisplayAlerts = False
End Sub
Michel,
"RV" a écrit dans le message de news:Michir,
Je m'aperçois qu'il y a un guillemet de trop après
ReturnReceipt:=True",
il faut l'écrire sans : ReturnReceipt:=True
Cordialement
HervéMessage ",
"michir" a écrit dans le message de news:
41991093$0$3306$J'ai essayé RV, mais cela bloque sur Message. Je précise que mon
fichier
àenvoyer s'appelle "Questionnaire":
Sub outLook()
ActiveWorkbook.SendMail Recipients:=Range("b3"),
Subject:="Questionnaire
"Message ", ReturnReceipt:=True"
mess = " corps du message"
End Sub
A bientôt pour la suite,
Michel
"RV" a écrit dans le message de news:
#Bonsoir Michel,
A adapter aux besoins
ActiveWorkbook.SendMail Recipients:=Range("a1"), Subject:="objet du
message", ReturnReceipt:=True
mess = " corps du message"
Cordialement
Hervé
"michir" a écrit dans le message de news:
4199072e$0$3277$Bonsoir,
Je souhaiterais écrire une macro qui me permette d'envoyer un
fichier
Excel
"toto" par internet à un destinataire dont l'adresse figure en
celluleA1par exemple.
Je n'arrive pas à automatiser complètement cette macro
Merci du coup de main,
Michel,
Gloups, jai oublié de joindre la macro modifiée:
Sub outLook()
ActiveWorkbook.SendMail Recipients:=Range("b3"), Subject:="Questionnaire
",
ReturnReceipt:=True
mess = "veuillez trouver ci-joint le questionnaire....."
Application.DisplayAlerts = False
End Sub
Michel,
"RV" <dick.pitt@rv.fr> a écrit dans le message de news:
u3fLVS1yEHA.3824@TK2MSFTNGP09.phx.gbl...
Michir,
Je m'aperçois qu'il y a un guillemet de trop après
ReturnReceipt:=True",
il faut l'écrire sans : ReturnReceipt:=True
Cordialement
Hervé
Message ",
"michir" <michir1789@wanadoo.fr> a écrit dans le message de news:
41991093$0$3306$8fcfb975@news.wanadoo.fr...
J'ai essayé RV, mais cela bloque sur Message. Je précise que mon
fichier
à
envoyer s'appelle "Questionnaire":
Sub outLook()
ActiveWorkbook.SendMail Recipients:=Range("b3"),
Subject:="Questionnaire
"
Message ", ReturnReceipt:=True"
mess = " corps du message"
End Sub
A bientôt pour la suite,
Michel
"RV" <dick.pitt@rv.fr> a écrit dans le message de news:
#XSqn20yEHA.344@TK2MSFTNGP10.phx.gbl...
Bonsoir Michel,
A adapter aux besoins
ActiveWorkbook.SendMail Recipients:=Range("a1"), Subject:="objet du
message", ReturnReceipt:=True
mess = " corps du message"
Cordialement
Hervé
"michir" <michir1789@wanadoo.fr> a écrit dans le message de news:
4199072e$0$3277$8fcfb975@news.wanadoo.fr...
Bonsoir,
Je souhaiterais écrire une macro qui me permette d'envoyer un
fichier
Excel
"toto" par internet à un destinataire dont l'adresse figure en
cellule
A1
par exemple.
Je n'arrive pas à automatiser complètement cette macro
Merci du coup de main,
Michel,
Gloups, jai oublié de joindre la macro modifiée:
Sub outLook()
ActiveWorkbook.SendMail Recipients:=Range("b3"), Subject:="Questionnaire
",
ReturnReceipt:=True
mess = "veuillez trouver ci-joint le questionnaire....."
Application.DisplayAlerts = False
End Sub
Michel,
"RV" a écrit dans le message de news:Michir,
Je m'aperçois qu'il y a un guillemet de trop après
ReturnReceipt:=True",
il faut l'écrire sans : ReturnReceipt:=True
Cordialement
HervéMessage ",
"michir" a écrit dans le message de news:
41991093$0$3306$J'ai essayé RV, mais cela bloque sur Message. Je précise que mon
fichier
àenvoyer s'appelle "Questionnaire":
Sub outLook()
ActiveWorkbook.SendMail Recipients:=Range("b3"),
Subject:="Questionnaire
"Message ", ReturnReceipt:=True"
mess = " corps du message"
End Sub
A bientôt pour la suite,
Michel
"RV" a écrit dans le message de news:
#Bonsoir Michel,
A adapter aux besoins
ActiveWorkbook.SendMail Recipients:=Range("a1"), Subject:="objet du
message", ReturnReceipt:=True
mess = " corps du message"
Cordialement
Hervé
"michir" a écrit dans le message de news:
4199072e$0$3277$Bonsoir,
Je souhaiterais écrire une macro qui me permette d'envoyer un
fichier
Excel
"toto" par internet à un destinataire dont l'adresse figure en
celluleA1par exemple.
Je n'arrive pas à automatiser complètement cette macro
Merci du coup de main,
Michel,