Bonjour,
J'ai cette procédure qui m'a été fourni par Isabelle.
Elle fonctionne très bien avec OE, mais comme nous changeons de client
de messagerie.
En fait en cliquant sur le bouton macro qui se trouve sur la feuille,
le classeur s'enregistre puis le client de messagerie se lance et
joint le classeur en PJ avec le texte dans le corps du texte, "Visa"
dans l'expéditeur et le sujet est là aussi.
Je ne comprends pas les SendKeys
j'ai essayé d'adapter en remplaçant :
Shell "C:Program FilesOutlook Expressmsimn.exe " _
par
Shell "C:Program FilesMozilla Thunderbirdthunderbird.exe" _
mais cela ne fonctionne pas.
Je vous remercie
Alain
Sub Envoie_Fichier()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
ThisWorkbook.Save
Fichier = ActiveWorkbook.FullName
La_date = Format(Now, "dd mmm yy")
La_date2 = Format(Now, "dddd dd mmmm yyyy")
Lheure = Format(Time, "hh:mm")
Lheure2 = Format(Time, "hh:mm")
Sujet = "Cessions du " & La_date & " envoyé à " & Lheure '& ".xls"
Msg = "Bonjour," & vbNewLine & "Je vous prie de trouver ci-joint le
fichier : " & _
vbNewLine & "Cessions du " & La_date2 & " envoyé à " & Lheure2 & _
vbNewLine & "Cordialement."
Shell "C:Program FilesOutlook Expressmsimn.exe " _
& "/mailurl:mailto:" & "Visa" & "?subject=" & Sujet & "&Body=" & Msg & ""
SendKeys "%I" & "p" & Fichier & "~" & "%S"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Bonjour,
J'ai cette procédure qui m'a été fourni par Isabelle.
Elle fonctionne très bien avec OE, mais comme nous changeons de client
de messagerie.
En fait en cliquant sur le bouton macro qui se trouve sur la feuille,
le classeur s'enregistre puis le client de messagerie se lance et
joint le classeur en PJ avec le texte dans le corps du texte, "Visa"
dans l'expéditeur et le sujet est là aussi.
Je ne comprends pas les SendKeys
j'ai essayé d'adapter en remplaçant :
Shell "C:Program FilesOutlook Expressmsimn.exe " _
par
Shell "C:Program FilesMozilla Thunderbirdthunderbird.exe" _
mais cela ne fonctionne pas.
Je vous remercie
Alain
Sub Envoie_Fichier()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
ThisWorkbook.Save
Fichier = ActiveWorkbook.FullName
La_date = Format(Now, "dd mmm yy")
La_date2 = Format(Now, "dddd dd mmmm yyyy")
Lheure = Format(Time, "hh:mm")
Lheure2 = Format(Time, "hh:mm")
Sujet = "Cessions du " & La_date & " envoyé à " & Lheure '& ".xls"
Msg = "Bonjour," & vbNewLine & "Je vous prie de trouver ci-joint le
fichier : " & _
vbNewLine & "Cessions du " & La_date2 & " envoyé à " & Lheure2 & _
vbNewLine & "Cordialement."
Shell "C:Program FilesOutlook Expressmsimn.exe " _
& "/mailurl:mailto:" & "Visa" & "?subject=" & Sujet & "&Body=" & Msg & ""
SendKeys "%I" & "p" & Fichier & "~" & "%S"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Bonjour,
J'ai cette procédure qui m'a été fourni par Isabelle.
Elle fonctionne très bien avec OE, mais comme nous changeons de client
de messagerie.
En fait en cliquant sur le bouton macro qui se trouve sur la feuille,
le classeur s'enregistre puis le client de messagerie se lance et
joint le classeur en PJ avec le texte dans le corps du texte, "Visa"
dans l'expéditeur et le sujet est là aussi.
Je ne comprends pas les SendKeys
j'ai essayé d'adapter en remplaçant :
Shell "C:Program FilesOutlook Expressmsimn.exe " _
par
Shell "C:Program FilesMozilla Thunderbirdthunderbird.exe" _
mais cela ne fonctionne pas.
Je vous remercie
Alain
Sub Envoie_Fichier()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
ThisWorkbook.Save
Fichier = ActiveWorkbook.FullName
La_date = Format(Now, "dd mmm yy")
La_date2 = Format(Now, "dddd dd mmmm yyyy")
Lheure = Format(Time, "hh:mm")
Lheure2 = Format(Time, "hh:mm")
Sujet = "Cessions du " & La_date & " envoyé à " & Lheure '& ".xls"
Msg = "Bonjour," & vbNewLine & "Je vous prie de trouver ci-joint le
fichier : " & _
vbNewLine & "Cessions du " & La_date2 & " envoyé à " & Lheure2 & _
vbNewLine & "Cordialement."
Shell "C:Program FilesOutlook Expressmsimn.exe " _
& "/mailurl:mailto:" & "Visa" & "?subject=" & Sujet & "&Body=" & Msg & ""
SendKeys "%I" & "p" & Fichier & "~" & "%S"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
bonjour Alain,
voici la signification des caractères après "SendKeys":
SendKeys "%I" & "p" & Fichier & "~" & "%S"
* %I et P = Insertion de la pièce jointe dans Outlook Express. (%=Alt)
* ~ = Validation. (~=Entrée)
* %S = Envoyer.
les touches équivalente de contrôle rapide sous Thunderbird
pour joindre un fichier
SendKeys "%f" & "%j" & Fichier & "~"
pour envoyer
SendKeys "%f" & "%v" & "~"
isabelle
Alain Lebayle a écrit :Bonjour,
J'ai cette procédure qui m'a été fourni par Isabelle.
Elle fonctionne très bien avec OE, mais comme nous changeons de client
de messagerie.
En fait en cliquant sur le bouton macro qui se trouve sur la feuille,
le classeur s'enregistre puis le client de messagerie se lance et
joint le classeur en PJ avec le texte dans le corps du texte, "Visa"
dans l'expéditeur et le sujet est là aussi.
Je ne comprends pas les SendKeys
j'ai essayé d'adapter en remplaçant :
Shell "C:Program FilesOutlook Expressmsimn.exe " _
par
Shell "C:Program FilesMozilla Thunderbirdthunderbird.exe" _
mais cela ne fonctionne pas.
Je vous remercie
Alain
Sub Envoie_Fichier()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
ThisWorkbook.Save
Fichier = ActiveWorkbook.FullName
La_date = Format(Now, "dd mmm yy")
La_date2 = Format(Now, "dddd dd mmmm yyyy")
Lheure = Format(Time, "hh:mm")
Lheure2 = Format(Time, "hh:mm")
Sujet = "Cessions du " & La_date & " envoyé à " & Lheure '& ".xls"
Msg = "Bonjour," & vbNewLine & "Je vous prie de trouver ci-joint le
fichier : " & _
vbNewLine & "Cessions du " & La_date2 & " envoyé à " & Lheure2 & _
vbNewLine & "Cordialement."
Shell "C:Program FilesOutlook Expressmsimn.exe " _
& "/mailurl:mailto:" & "Visa" & "?subject=" & Sujet & "&Body=" & Msg & ""
SendKeys "%I" & "p" & Fichier & "~" & "%S"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
bonjour Alain,
voici la signification des caractères après "SendKeys":
SendKeys "%I" & "p" & Fichier & "~" & "%S"
* %I et P = Insertion de la pièce jointe dans Outlook Express. (%=Alt)
* ~ = Validation. (~=Entrée)
* %S = Envoyer.
les touches équivalente de contrôle rapide sous Thunderbird
pour joindre un fichier
SendKeys "%f" & "%j" & Fichier & "~"
pour envoyer
SendKeys "%f" & "%v" & "~"
isabelle
Alain Lebayle a écrit :
Bonjour,
J'ai cette procédure qui m'a été fourni par Isabelle.
Elle fonctionne très bien avec OE, mais comme nous changeons de client
de messagerie.
En fait en cliquant sur le bouton macro qui se trouve sur la feuille,
le classeur s'enregistre puis le client de messagerie se lance et
joint le classeur en PJ avec le texte dans le corps du texte, "Visa"
dans l'expéditeur et le sujet est là aussi.
Je ne comprends pas les SendKeys
j'ai essayé d'adapter en remplaçant :
Shell "C:Program FilesOutlook Expressmsimn.exe " _
par
Shell "C:Program FilesMozilla Thunderbirdthunderbird.exe" _
mais cela ne fonctionne pas.
Je vous remercie
Alain
Sub Envoie_Fichier()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
ThisWorkbook.Save
Fichier = ActiveWorkbook.FullName
La_date = Format(Now, "dd mmm yy")
La_date2 = Format(Now, "dddd dd mmmm yyyy")
Lheure = Format(Time, "hh:mm")
Lheure2 = Format(Time, "hh:mm")
Sujet = "Cessions du " & La_date & " envoyé à " & Lheure '& ".xls"
Msg = "Bonjour," & vbNewLine & "Je vous prie de trouver ci-joint le
fichier : " & _
vbNewLine & "Cessions du " & La_date2 & " envoyé à " & Lheure2 & _
vbNewLine & "Cordialement."
Shell "C:Program FilesOutlook Expressmsimn.exe " _
& "/mailurl:mailto:" & "Visa" & "?subject=" & Sujet & "&Body=" & Msg & ""
SendKeys "%I" & "p" & Fichier & "~" & "%S"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
bonjour Alain,
voici la signification des caractères après "SendKeys":
SendKeys "%I" & "p" & Fichier & "~" & "%S"
* %I et P = Insertion de la pièce jointe dans Outlook Express. (%=Alt)
* ~ = Validation. (~=Entrée)
* %S = Envoyer.
les touches équivalente de contrôle rapide sous Thunderbird
pour joindre un fichier
SendKeys "%f" & "%j" & Fichier & "~"
pour envoyer
SendKeys "%f" & "%v" & "~"
isabelle
Alain Lebayle a écrit :Bonjour,
J'ai cette procédure qui m'a été fourni par Isabelle.
Elle fonctionne très bien avec OE, mais comme nous changeons de client
de messagerie.
En fait en cliquant sur le bouton macro qui se trouve sur la feuille,
le classeur s'enregistre puis le client de messagerie se lance et
joint le classeur en PJ avec le texte dans le corps du texte, "Visa"
dans l'expéditeur et le sujet est là aussi.
Je ne comprends pas les SendKeys
j'ai essayé d'adapter en remplaçant :
Shell "C:Program FilesOutlook Expressmsimn.exe " _
par
Shell "C:Program FilesMozilla Thunderbirdthunderbird.exe" _
mais cela ne fonctionne pas.
Je vous remercie
Alain
Sub Envoie_Fichier()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
ThisWorkbook.Save
Fichier = ActiveWorkbook.FullName
La_date = Format(Now, "dd mmm yy")
La_date2 = Format(Now, "dddd dd mmmm yyyy")
Lheure = Format(Time, "hh:mm")
Lheure2 = Format(Time, "hh:mm")
Sujet = "Cessions du " & La_date & " envoyé à " & Lheure '& ".xls"
Msg = "Bonjour," & vbNewLine & "Je vous prie de trouver ci-joint le
fichier : " & _
vbNewLine & "Cessions du " & La_date2 & " envoyé à " & Lheure2 & _
vbNewLine & "Cordialement."
Shell "C:Program FilesOutlook Expressmsimn.exe " _
& "/mailurl:mailto:" & "Visa" & "?subject=" & Sujet & "&Body=" & Msg & ""
SendKeys "%I" & "p" & Fichier & "~" & "%S"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Bonjour,
Merci beaucoup Isabelle, mais apparemment, je ne dois pas faire
correctement les choses.
Je t'envoie le fichier : http://cjoint.com/?lvohdLmuJH
Merci
Alain
isabelle a écrit :bonjour Alain,
voici la signification des caractères après "SendKeys":
SendKeys "%I" & "p" & Fichier & "~" & "%S"
* %I et P = Insertion de la pièce jointe dans Outlook Express. (%=Alt)
* ~ = Validation. (~=Entrée)
* %S = Envoyer.
les touches équivalente de contrôle rapide sous Thunderbird
pour joindre un fichier
SendKeys "%f" & "%j" & Fichier & "~"
pour envoyer
SendKeys "%f" & "%v" & "~"
isabelle
Alain Lebayle a écrit :Bonjour,
J'ai cette procédure qui m'a été fourni par Isabelle.
Elle fonctionne très bien avec OE, mais comme nous changeons de
client de messagerie.
En fait en cliquant sur le bouton macro qui se trouve sur la
feuille, le classeur s'enregistre puis le client de messagerie se
lance et joint le classeur en PJ avec le texte dans le corps du
texte, "Visa" dans l'expéditeur et le sujet est là aussi.
Je ne comprends pas les SendKeys
j'ai essayé d'adapter en remplaçant :
Shell "C:Program FilesOutlook Expressmsimn.exe " _
par
Shell "C:Program FilesMozilla Thunderbirdthunderbird.exe" _
mais cela ne fonctionne pas.
Je vous remercie
Alain
Sub Envoie_Fichier()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
ThisWorkbook.Save
Fichier = ActiveWorkbook.FullName
La_date = Format(Now, "dd mmm yy")
La_date2 = Format(Now, "dddd dd mmmm yyyy")
Lheure = Format(Time, "hh:mm")
Lheure2 = Format(Time, "hh:mm")
Sujet = "Cessions du " & La_date & " envoyé à " & Lheure '& ".xls"
Msg = "Bonjour," & vbNewLine & "Je vous prie de trouver ci-joint le
fichier : " & _
vbNewLine & "Cessions du " & La_date2 & " envoyé à " & Lheure2 & _
vbNewLine & "Cordialement."
Shell "C:Program FilesOutlook Expressmsimn.exe " _
& "/mailurl:mailto:" & "Visa" & "?subject=" & Sujet & "&Body=" & Msg
& ""
SendKeys "%I" & "p" & Fichier & "~" & "%S"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Bonjour,
Merci beaucoup Isabelle, mais apparemment, je ne dois pas faire
correctement les choses.
Je t'envoie le fichier : http://cjoint.com/?lvohdLmuJH
Merci
Alain
isabelle a écrit :
bonjour Alain,
voici la signification des caractères après "SendKeys":
SendKeys "%I" & "p" & Fichier & "~" & "%S"
* %I et P = Insertion de la pièce jointe dans Outlook Express. (%=Alt)
* ~ = Validation. (~=Entrée)
* %S = Envoyer.
les touches équivalente de contrôle rapide sous Thunderbird
pour joindre un fichier
SendKeys "%f" & "%j" & Fichier & "~"
pour envoyer
SendKeys "%f" & "%v" & "~"
isabelle
Alain Lebayle a écrit :
Bonjour,
J'ai cette procédure qui m'a été fourni par Isabelle.
Elle fonctionne très bien avec OE, mais comme nous changeons de
client de messagerie.
En fait en cliquant sur le bouton macro qui se trouve sur la
feuille, le classeur s'enregistre puis le client de messagerie se
lance et joint le classeur en PJ avec le texte dans le corps du
texte, "Visa" dans l'expéditeur et le sujet est là aussi.
Je ne comprends pas les SendKeys
j'ai essayé d'adapter en remplaçant :
Shell "C:Program FilesOutlook Expressmsimn.exe " _
par
Shell "C:Program FilesMozilla Thunderbirdthunderbird.exe" _
mais cela ne fonctionne pas.
Je vous remercie
Alain
Sub Envoie_Fichier()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
ThisWorkbook.Save
Fichier = ActiveWorkbook.FullName
La_date = Format(Now, "dd mmm yy")
La_date2 = Format(Now, "dddd dd mmmm yyyy")
Lheure = Format(Time, "hh:mm")
Lheure2 = Format(Time, "hh:mm")
Sujet = "Cessions du " & La_date & " envoyé à " & Lheure '& ".xls"
Msg = "Bonjour," & vbNewLine & "Je vous prie de trouver ci-joint le
fichier : " & _
vbNewLine & "Cessions du " & La_date2 & " envoyé à " & Lheure2 & _
vbNewLine & "Cordialement."
Shell "C:Program FilesOutlook Expressmsimn.exe " _
& "/mailurl:mailto:" & "Visa" & "?subject=" & Sujet & "&Body=" & Msg
& ""
SendKeys "%I" & "p" & Fichier & "~" & "%S"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Bonjour,
Merci beaucoup Isabelle, mais apparemment, je ne dois pas faire
correctement les choses.
Je t'envoie le fichier : http://cjoint.com/?lvohdLmuJH
Merci
Alain
isabelle a écrit :bonjour Alain,
voici la signification des caractères après "SendKeys":
SendKeys "%I" & "p" & Fichier & "~" & "%S"
* %I et P = Insertion de la pièce jointe dans Outlook Express. (%=Alt)
* ~ = Validation. (~=Entrée)
* %S = Envoyer.
les touches équivalente de contrôle rapide sous Thunderbird
pour joindre un fichier
SendKeys "%f" & "%j" & Fichier & "~"
pour envoyer
SendKeys "%f" & "%v" & "~"
isabelle
Alain Lebayle a écrit :Bonjour,
J'ai cette procédure qui m'a été fourni par Isabelle.
Elle fonctionne très bien avec OE, mais comme nous changeons de
client de messagerie.
En fait en cliquant sur le bouton macro qui se trouve sur la
feuille, le classeur s'enregistre puis le client de messagerie se
lance et joint le classeur en PJ avec le texte dans le corps du
texte, "Visa" dans l'expéditeur et le sujet est là aussi.
Je ne comprends pas les SendKeys
j'ai essayé d'adapter en remplaçant :
Shell "C:Program FilesOutlook Expressmsimn.exe " _
par
Shell "C:Program FilesMozilla Thunderbirdthunderbird.exe" _
mais cela ne fonctionne pas.
Je vous remercie
Alain
Sub Envoie_Fichier()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
ThisWorkbook.Save
Fichier = ActiveWorkbook.FullName
La_date = Format(Now, "dd mmm yy")
La_date2 = Format(Now, "dddd dd mmmm yyyy")
Lheure = Format(Time, "hh:mm")
Lheure2 = Format(Time, "hh:mm")
Sujet = "Cessions du " & La_date & " envoyé à " & Lheure '& ".xls"
Msg = "Bonjour," & vbNewLine & "Je vous prie de trouver ci-joint le
fichier : " & _
vbNewLine & "Cessions du " & La_date2 & " envoyé à " & Lheure2 & _
vbNewLine & "Cordialement."
Shell "C:Program FilesOutlook Expressmsimn.exe " _
& "/mailurl:mailto:" & "Visa" & "?subject=" & Sujet & "&Body=" & Msg
& ""
SendKeys "%I" & "p" & Fichier & "~" & "%S"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Bonjour,
Merci beaucoup Isabelle, mais apparemment, je ne dois pas faire
correctement les choses.
Je t'envoie le fichier : http://cjoint.com/?lvohdLmuJH
Merci
Alain
isabelle a écrit :bonjour Alain,
voici la signification des caractères après "SendKeys":
SendKeys "%I" & "p" & Fichier & "~" & "%S"
* %I et P = Insertion de la pièce jointe dans Outlook Express. (%=Alt)
* ~ = Validation. (~=Entrée)
* %S = Envoyer.
les touches équivalente de contrôle rapide sous Thunderbird
pour joindre un fichier
SendKeys "%f" & "%j" & Fichier & "~"
pour envoyer
SendKeys "%f" & "%v" & "~"
isabelle
Alain Lebayle a écrit :Bonjour,
J'ai cette procédure qui m'a été fourni par Isabelle.
Elle fonctionne très bien avec OE, mais comme nous changeons de
client de messagerie.
En fait en cliquant sur le bouton macro qui se trouve sur la
feuille, le classeur s'enregistre puis le client de messagerie se
lance et joint le classeur en PJ avec le texte dans le corps du
texte, "Visa" dans l'expéditeur et le sujet est là aussi.
Je ne comprends pas les SendKeys
j'ai essayé d'adapter en remplaçant :
Shell "C:Program FilesOutlook Expressmsimn.exe " _
par
Shell "C:Program FilesMozilla Thunderbirdthunderbird.exe" _
mais cela ne fonctionne pas.
Je vous remercie
Alain
Sub Envoie_Fichier()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
ThisWorkbook.Save
Fichier = ActiveWorkbook.FullName
La_date = Format(Now, "dd mmm yy")
La_date2 = Format(Now, "dddd dd mmmm yyyy")
Lheure = Format(Time, "hh:mm")
Lheure2 = Format(Time, "hh:mm")
Sujet = "Cessions du " & La_date & " envoyé à " & Lheure '& ".xls"
Msg = "Bonjour," & vbNewLine & "Je vous prie de trouver ci-joint le
fichier : " & _
vbNewLine & "Cessions du " & La_date2 & " envoyé à " & Lheure2 & _
vbNewLine & "Cordialement."
Shell "C:Program FilesOutlook Expressmsimn.exe " _
& "/mailurl:mailto:" & "Visa" & "?subject=" & Sujet & "&Body=" & Msg
& ""
SendKeys "%I" & "p" & Fichier & "~" & "%S"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Bonjour,
Merci beaucoup Isabelle, mais apparemment, je ne dois pas faire
correctement les choses.
Je t'envoie le fichier : http://cjoint.com/?lvohdLmuJH
Merci
Alain
isabelle a écrit :
bonjour Alain,
voici la signification des caractères après "SendKeys":
SendKeys "%I" & "p" & Fichier & "~" & "%S"
* %I et P = Insertion de la pièce jointe dans Outlook Express. (%=Alt)
* ~ = Validation. (~=Entrée)
* %S = Envoyer.
les touches équivalente de contrôle rapide sous Thunderbird
pour joindre un fichier
SendKeys "%f" & "%j" & Fichier & "~"
pour envoyer
SendKeys "%f" & "%v" & "~"
isabelle
Alain Lebayle a écrit :
Bonjour,
J'ai cette procédure qui m'a été fourni par Isabelle.
Elle fonctionne très bien avec OE, mais comme nous changeons de
client de messagerie.
En fait en cliquant sur le bouton macro qui se trouve sur la
feuille, le classeur s'enregistre puis le client de messagerie se
lance et joint le classeur en PJ avec le texte dans le corps du
texte, "Visa" dans l'expéditeur et le sujet est là aussi.
Je ne comprends pas les SendKeys
j'ai essayé d'adapter en remplaçant :
Shell "C:Program FilesOutlook Expressmsimn.exe " _
par
Shell "C:Program FilesMozilla Thunderbirdthunderbird.exe" _
mais cela ne fonctionne pas.
Je vous remercie
Alain
Sub Envoie_Fichier()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
ThisWorkbook.Save
Fichier = ActiveWorkbook.FullName
La_date = Format(Now, "dd mmm yy")
La_date2 = Format(Now, "dddd dd mmmm yyyy")
Lheure = Format(Time, "hh:mm")
Lheure2 = Format(Time, "hh:mm")
Sujet = "Cessions du " & La_date & " envoyé à " & Lheure '& ".xls"
Msg = "Bonjour," & vbNewLine & "Je vous prie de trouver ci-joint le
fichier : " & _
vbNewLine & "Cessions du " & La_date2 & " envoyé à " & Lheure2 & _
vbNewLine & "Cordialement."
Shell "C:Program FilesOutlook Expressmsimn.exe " _
& "/mailurl:mailto:" & "Visa" & "?subject=" & Sujet & "&Body=" & Msg
& ""
SendKeys "%I" & "p" & Fichier & "~" & "%S"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Bonjour,
Merci beaucoup Isabelle, mais apparemment, je ne dois pas faire
correctement les choses.
Je t'envoie le fichier : http://cjoint.com/?lvohdLmuJH
Merci
Alain
isabelle a écrit :bonjour Alain,
voici la signification des caractères après "SendKeys":
SendKeys "%I" & "p" & Fichier & "~" & "%S"
* %I et P = Insertion de la pièce jointe dans Outlook Express. (%=Alt)
* ~ = Validation. (~=Entrée)
* %S = Envoyer.
les touches équivalente de contrôle rapide sous Thunderbird
pour joindre un fichier
SendKeys "%f" & "%j" & Fichier & "~"
pour envoyer
SendKeys "%f" & "%v" & "~"
isabelle
Alain Lebayle a écrit :Bonjour,
J'ai cette procédure qui m'a été fourni par Isabelle.
Elle fonctionne très bien avec OE, mais comme nous changeons de
client de messagerie.
En fait en cliquant sur le bouton macro qui se trouve sur la
feuille, le classeur s'enregistre puis le client de messagerie se
lance et joint le classeur en PJ avec le texte dans le corps du
texte, "Visa" dans l'expéditeur et le sujet est là aussi.
Je ne comprends pas les SendKeys
j'ai essayé d'adapter en remplaçant :
Shell "C:Program FilesOutlook Expressmsimn.exe " _
par
Shell "C:Program FilesMozilla Thunderbirdthunderbird.exe" _
mais cela ne fonctionne pas.
Je vous remercie
Alain
Sub Envoie_Fichier()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
ThisWorkbook.Save
Fichier = ActiveWorkbook.FullName
La_date = Format(Now, "dd mmm yy")
La_date2 = Format(Now, "dddd dd mmmm yyyy")
Lheure = Format(Time, "hh:mm")
Lheure2 = Format(Time, "hh:mm")
Sujet = "Cessions du " & La_date & " envoyé à " & Lheure '& ".xls"
Msg = "Bonjour," & vbNewLine & "Je vous prie de trouver ci-joint le
fichier : " & _
vbNewLine & "Cessions du " & La_date2 & " envoyé à " & Lheure2 & _
vbNewLine & "Cordialement."
Shell "C:Program FilesOutlook Expressmsimn.exe " _
& "/mailurl:mailto:" & "Visa" & "?subject=" & Sujet & "&Body=" & Msg
& ""
SendKeys "%I" & "p" & Fichier & "~" & "%S"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
bonjour Alain,
j'ai trouvé un exemple complet ici :
http://www.vbfrance.com/codes/ENVOI-AUTOMATIQUE-MAIL-AVEC-PIECE-JOINTE-VBA-EXCEL_31545.aspx
envoi automatique de mail (avec pièce jointe) en vba : excel, word ou
access par oulook express ou modzilla thunderbird ou d'autres
isabelle
Alain Lebayle a écrit :Bonjour,
Merci beaucoup Isabelle, mais apparemment, je ne dois pas faire
correctement les choses.
Je t'envoie le fichier : http://cjoint.com/?lvohdLmuJH
Merci
Alain
isabelle a écrit :bonjour Alain,
voici la signification des caractères après "SendKeys":
SendKeys "%I" & "p" & Fichier & "~" & "%S"
* %I et P = Insertion de la pièce jointe dans Outlook Express. (%=Alt)
* ~ = Validation. (~=Entrée)
* %S = Envoyer.
les touches équivalente de contrôle rapide sous Thunderbird
pour joindre un fichier
SendKeys "%f" & "%j" & Fichier & "~"
pour envoyer
SendKeys "%f" & "%v" & "~"
isabelle
Alain Lebayle a écrit :Bonjour,
J'ai cette procédure qui m'a été fourni par Isabelle.
Elle fonctionne très bien avec OE, mais comme nous changeons de
client de messagerie.
En fait en cliquant sur le bouton macro qui se trouve sur la
feuille, le classeur s'enregistre puis le client de messagerie se
lance et joint le classeur en PJ avec le texte dans le corps du
texte, "Visa" dans l'expéditeur et le sujet est là aussi.
Je ne comprends pas les SendKeys
j'ai essayé d'adapter en remplaçant :
Shell "C:Program FilesOutlook Expressmsimn.exe " _
par
Shell "C:Program FilesMozilla Thunderbirdthunderbird.exe" _
mais cela ne fonctionne pas.
Je vous remercie
Alain
Sub Envoie_Fichier()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
ThisWorkbook.Save
Fichier = ActiveWorkbook.FullName
La_date = Format(Now, "dd mmm yy")
La_date2 = Format(Now, "dddd dd mmmm yyyy")
Lheure = Format(Time, "hh:mm")
Lheure2 = Format(Time, "hh:mm")
Sujet = "Cessions du " & La_date & " envoyé à " & Lheure '& ".xls"
Msg = "Bonjour," & vbNewLine & "Je vous prie de trouver ci-joint le
fichier : " & _
vbNewLine & "Cessions du " & La_date2 & " envoyé à " & Lheure2 & _
vbNewLine & "Cordialement."
Shell "C:Program FilesOutlook Expressmsimn.exe " _
& "/mailurl:mailto:" & "Visa" & "?subject=" & Sujet & "&Body=" & Msg
& ""
SendKeys "%I" & "p" & Fichier & "~" & "%S"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
bonjour Alain,
j'ai trouvé un exemple complet ici :
http://www.vbfrance.com/codes/ENVOI-AUTOMATIQUE-MAIL-AVEC-PIECE-JOINTE-VBA-EXCEL_31545.aspx
envoi automatique de mail (avec pièce jointe) en vba : excel, word ou
access par oulook express ou modzilla thunderbird ou d'autres
isabelle
Alain Lebayle a écrit :
Bonjour,
Merci beaucoup Isabelle, mais apparemment, je ne dois pas faire
correctement les choses.
Je t'envoie le fichier : http://cjoint.com/?lvohdLmuJH
Merci
Alain
isabelle a écrit :
bonjour Alain,
voici la signification des caractères après "SendKeys":
SendKeys "%I" & "p" & Fichier & "~" & "%S"
* %I et P = Insertion de la pièce jointe dans Outlook Express. (%=Alt)
* ~ = Validation. (~=Entrée)
* %S = Envoyer.
les touches équivalente de contrôle rapide sous Thunderbird
pour joindre un fichier
SendKeys "%f" & "%j" & Fichier & "~"
pour envoyer
SendKeys "%f" & "%v" & "~"
isabelle
Alain Lebayle a écrit :
Bonjour,
J'ai cette procédure qui m'a été fourni par Isabelle.
Elle fonctionne très bien avec OE, mais comme nous changeons de
client de messagerie.
En fait en cliquant sur le bouton macro qui se trouve sur la
feuille, le classeur s'enregistre puis le client de messagerie se
lance et joint le classeur en PJ avec le texte dans le corps du
texte, "Visa" dans l'expéditeur et le sujet est là aussi.
Je ne comprends pas les SendKeys
j'ai essayé d'adapter en remplaçant :
Shell "C:Program FilesOutlook Expressmsimn.exe " _
par
Shell "C:Program FilesMozilla Thunderbirdthunderbird.exe" _
mais cela ne fonctionne pas.
Je vous remercie
Alain
Sub Envoie_Fichier()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
ThisWorkbook.Save
Fichier = ActiveWorkbook.FullName
La_date = Format(Now, "dd mmm yy")
La_date2 = Format(Now, "dddd dd mmmm yyyy")
Lheure = Format(Time, "hh:mm")
Lheure2 = Format(Time, "hh:mm")
Sujet = "Cessions du " & La_date & " envoyé à " & Lheure '& ".xls"
Msg = "Bonjour," & vbNewLine & "Je vous prie de trouver ci-joint le
fichier : " & _
vbNewLine & "Cessions du " & La_date2 & " envoyé à " & Lheure2 & _
vbNewLine & "Cordialement."
Shell "C:Program FilesOutlook Expressmsimn.exe " _
& "/mailurl:mailto:" & "Visa" & "?subject=" & Sujet & "&Body=" & Msg
& ""
SendKeys "%I" & "p" & Fichier & "~" & "%S"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
bonjour Alain,
j'ai trouvé un exemple complet ici :
http://www.vbfrance.com/codes/ENVOI-AUTOMATIQUE-MAIL-AVEC-PIECE-JOINTE-VBA-EXCEL_31545.aspx
envoi automatique de mail (avec pièce jointe) en vba : excel, word ou
access par oulook express ou modzilla thunderbird ou d'autres
isabelle
Alain Lebayle a écrit :Bonjour,
Merci beaucoup Isabelle, mais apparemment, je ne dois pas faire
correctement les choses.
Je t'envoie le fichier : http://cjoint.com/?lvohdLmuJH
Merci
Alain
isabelle a écrit :bonjour Alain,
voici la signification des caractères après "SendKeys":
SendKeys "%I" & "p" & Fichier & "~" & "%S"
* %I et P = Insertion de la pièce jointe dans Outlook Express. (%=Alt)
* ~ = Validation. (~=Entrée)
* %S = Envoyer.
les touches équivalente de contrôle rapide sous Thunderbird
pour joindre un fichier
SendKeys "%f" & "%j" & Fichier & "~"
pour envoyer
SendKeys "%f" & "%v" & "~"
isabelle
Alain Lebayle a écrit :Bonjour,
J'ai cette procédure qui m'a été fourni par Isabelle.
Elle fonctionne très bien avec OE, mais comme nous changeons de
client de messagerie.
En fait en cliquant sur le bouton macro qui se trouve sur la
feuille, le classeur s'enregistre puis le client de messagerie se
lance et joint le classeur en PJ avec le texte dans le corps du
texte, "Visa" dans l'expéditeur et le sujet est là aussi.
Je ne comprends pas les SendKeys
j'ai essayé d'adapter en remplaçant :
Shell "C:Program FilesOutlook Expressmsimn.exe " _
par
Shell "C:Program FilesMozilla Thunderbirdthunderbird.exe" _
mais cela ne fonctionne pas.
Je vous remercie
Alain
Sub Envoie_Fichier()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
ThisWorkbook.Save
Fichier = ActiveWorkbook.FullName
La_date = Format(Now, "dd mmm yy")
La_date2 = Format(Now, "dddd dd mmmm yyyy")
Lheure = Format(Time, "hh:mm")
Lheure2 = Format(Time, "hh:mm")
Sujet = "Cessions du " & La_date & " envoyé à " & Lheure '& ".xls"
Msg = "Bonjour," & vbNewLine & "Je vous prie de trouver ci-joint le
fichier : " & _
vbNewLine & "Cessions du " & La_date2 & " envoyé à " & Lheure2 & _
vbNewLine & "Cordialement."
Shell "C:Program FilesOutlook Expressmsimn.exe " _
& "/mailurl:mailto:" & "Visa" & "?subject=" & Sujet & "&Body=" & Msg
& ""
SendKeys "%I" & "p" & Fichier & "~" & "%S"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub