Excel avec Thuderbird

Le
Alain Lebayle
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #20600451
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


Alain Lebayle
Le #20600601
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




isabelle
Le #20600891
bonjour Alain,

il y a un erreur sur cette ligne,

Shell "C:Program FilesMozilla Thunderbirdthunderbird.exe" _
& "/mailurl:mailto:" & "" & "?subject=" & Sujet & "&Body=" & Msg & ""

je ne suis pas sur de ces termes, ce sont ceux de OE
/mailurl:mailto:,
?subject &Body
ce n'est peut être pas les même qu'il faut utiliser pour Thunderbird

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






isabelle
Le #20601181
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






Alain Lebayle
Le #20601731
Ok, merci beaucoup Isabelle, c'est vraiment très sympa de ta part

@+
Alain


isabelle a écrit :
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








Publicité
Poster une réponse
Anonyme