Envoie fichier par live mail
Le
ThierryK
Bonjour à toutes et à tous
je souhaiterai envoyer par macro un fichier avec un texte et l'objet et un
fichier joint
avec Windows live mail
j'ai remplacé Outlook express et son chemin par
"C:\Program Files (x86)\Windows Live\Mail\wlmail.exe"
dans le code ci dessous, mais ça ne marche pas
si vous avez la soluce ou 1 piste
merci d'avance
ThierryK
exemple avec OE
Private Sub EnvoiCourriel()
Dim Dest As String, Objet As String
Dim Corps As String, Rep As String
Dest = ""
'Définir le chemin et le fichier à expédier.
Rep = Chemin & "\" & NomFichier
Objet = "Feuille de route du " & DateMatch & " à " & HeureMatch1
Corps = "Bonjour," & vbCrLf & vbCrLf
Corps = Corps & "Ci-joint la feuille de route pour le match du " & DateMatch
& " à " & HeureMatch1 & vbCrLf & vbCrLf
Corps = Corps & " " & Match & vbCrLf & vbCrLf
Corps = Corps & "Catégorie : " & Categorie & vbCrLf & vbCrLf
Corps = Corps & "Bonne réception." & vbCrLf
Corps = Corps & "" & vbCrLf
Corps = Corps & "Si vous avez des problèmes d'ouverture ou d'affichage du
fichier joint" & vbCrLf
Corps = Corps & "Veuillez me contacter." & vbCrLf
Corps = Corps & "" & vbCrLf
Corps = Corps & "Dominique"
Shell "C:\Program Files\Outlook Express\msimn.exe " & _
"/mailurl:mailto:" & Dest & _
"?subject=" & Objet & _
"&Body=" & Corps, vbMaximizedFocus
'Active la ligne de code qui correspond à ton exigence.
'Envoyer le fichier sans fichier attaché
'SendKeys "%s"
'Pour afficher le courriel + fichier attaché
SendKeys "%I" & "p" & Rep & "~"
'Envoyer le courriel + fichier attaché de façon automatique
'SendKeys "%I" & "p" & Rep & "~" & "%s"
End Sub
je souhaiterai envoyer par macro un fichier avec un texte et l'objet et un
fichier joint
avec Windows live mail
j'ai remplacé Outlook express et son chemin par
"C:\Program Files (x86)\Windows Live\Mail\wlmail.exe"
dans le code ci dessous, mais ça ne marche pas
si vous avez la soluce ou 1 piste
merci d'avance
ThierryK
exemple avec OE
Private Sub EnvoiCourriel()
Dim Dest As String, Objet As String
Dim Corps As String, Rep As String
Dest = ""
'Définir le chemin et le fichier à expédier.
Rep = Chemin & "\" & NomFichier
Objet = "Feuille de route du " & DateMatch & " à " & HeureMatch1
Corps = "Bonjour," & vbCrLf & vbCrLf
Corps = Corps & "Ci-joint la feuille de route pour le match du " & DateMatch
& " à " & HeureMatch1 & vbCrLf & vbCrLf
Corps = Corps & " " & Match & vbCrLf & vbCrLf
Corps = Corps & "Catégorie : " & Categorie & vbCrLf & vbCrLf
Corps = Corps & "Bonne réception." & vbCrLf
Corps = Corps & "" & vbCrLf
Corps = Corps & "Si vous avez des problèmes d'ouverture ou d'affichage du
fichier joint" & vbCrLf
Corps = Corps & "Veuillez me contacter." & vbCrLf
Corps = Corps & "" & vbCrLf
Corps = Corps & "Dominique"
Shell "C:\Program Files\Outlook Express\msimn.exe " & _
"/mailurl:mailto:" & Dest & _
"?subject=" & Objet & _
"&Body=" & Corps, vbMaximizedFocus
'Active la ligne de code qui correspond à ton exigence.
'Envoyer le fichier sans fichier attaché
'SendKeys "%s"
'Pour afficher le courriel + fichier attaché
SendKeys "%I" & "p" & Rep & "~"
'Envoyer le courriel + fichier attaché de façon automatique
'SendKeys "%I" & "p" & Rep & "~" & "%s"
End Sub
Poser une question
Pas sur que ce soit aussi simple.
Pour envoyer un mail, utilise la méthode décrite ici :
http://www.rondebruin.nl/cdo.htm
Tu peux choisir le serveur SMTP que tu souhaites, et ainsi envoyer un
mail a artir de ton compte live mail.
La méthode que tu décris ci-dessus simule des clique sur des touches
ou des boutons sur l'interface Outlook Express, interface qui est
différente dans le cas de Windows Live Mail.
Cordialement,
F.
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.
mais je ne connais pas les touches équivalente de contrôle rapide sous
live mail
isabelle
ThierryK a écrit :
ok pour les caractères
donc il semble que 6 ans après OE
refaire la même chose avec WLM ne soit plus possible?
je vais donc revenir à OE
bon we en encore merci
thierryK
"isabelle" a écrit dans le message de groupe de discussion :
#
Salut F;
merci pour ton aide
je vais essayer avec ton lien
mais comme je n'ai jamais fait d'anglais, pas évident!
c'est quand même un comble,
ce qui est possible avec OE depuis + de 6 ans ne le serai plus avec WLM!
à le progrès!
bon WE
Je me permet d'institer, mais qu'apporte de plus le fait de passer par
une interface Windows Live Mail avec tous les inconvénients que cela
peut comporter, alors qu'il est possible d'envoyer un mail plus
proprement et plus simplement ?
Cordialement,
F.