Excel - Excel avec Thuderbird

Asked By Alain Lebayle

20-Nov-09 03:53 PM

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 Files\Outlook Express\msimn.exe " _

par

Shell "C:\Program Files\Mozilla Thunderbird\thunderbird.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 Files\Outlook Express\msimn.exe " _
& "/mailurl:mailto:" & "Visa" & "?subject=" & Sujet & "&Body=" & Msg & ""
SendKeys "%I" & "p" & Fichier & "~" & "%S"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

21-Nov-09 07:46 AM

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 :

21-Nov-09 08:09 AM

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 :

21-Nov-09 09:05 AM

bonjour Alain,

il y a un erreur sur cette ligne,

Shell "C:\Program Files\Mozilla Thunderbird\thunderbird.exe" _
& "/mailurl:mailto:" & "i@v" & "?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 :

21-Nov-09 09:50 AM

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 :

21-Nov-09 11:02 AM

Ok, merci beaucoup Isabelle, c'est vraiment tr?s sympa de ta part

@+
Alain


isabelle a ?crit :