Excel et Thunderbird

Shell "C:Program FilesMozilla Thunderbirdthunderbird.exe" _

Alain Lebayle avait soumis l'idée :

Shell "C:Program FilesMozilla Thunderbirdthunderbird.exe" _

et si tu ajoute un espace apres ...bird.exe " _ ?

Alain Lebayle avait soumis l'idée :

Shell "C:Program FilesMozilla Thunderbirdthunderbird.exe" _

et si tu ajoute un espace apres ...bird.exe " _ ?

Alain Lebayle avait soumis l'idée :

Shell "C:Program FilesMozilla Thunderbirdthunderbird.exe" _

et si tu ajoute un espace apres ...bird.exe " _ ?

JLuc a écrit :

Alain Lebayle avait soumis l'idée :

Shell "C:Program FilesMozilla Thunderbirdthunderbird.exe" _

et si tu ajoute un espace apres ...bird.exe " _ ?

Bonjour,
En fait, cela fonctionne lance Thunderbird mais, pas le reste...
Merci

JLuc a écrit :

Alain Lebayle avait soumis l'idée :

Shell "C:Program FilesMozilla Thunderbirdthunderbird.exe" _

et si tu ajoute un espace apres ...bird.exe " _ ?

Bonjour,
En fait, cela fonctionne lance Thunderbird mais, pas le reste...
Merci

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, 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

Bonsoir

le code que tu as donné montre l'utilisation de sendkeys
SendKeys "%I" & "p" & Fichier & "~" & "%S"
ce bout de code ne fait que reproduire la séquence de touches que tu
fais sur OE. Forcément en changeant de logiciel ce n'est plus la même
séquence !
A toi de noter sur quelles touches tu appuies dans TB pour faire ce que
tu veux et à modifier en conséquence ton code.

Misange migrateuse
http://www.excelabo.net : Participez à un travail collaboratif sur excel !


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, 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.
C'est quoi, "le reste" ?
Daniel

JLuc a écrit :

Alain Lebayle avait soumis l'idée :

Shell "C:Program FilesMozilla Thunderbirdthunderbird.exe" _

et si tu ajoute un espace apres ...bird.exe " _ ?

Bonjour,
En fait, cela fonctionne lance Thunderbird mais, pas le reste...
Merci