envoi pdf par mail via wlmail

[andre974]

Bonjour à tous

J'avais ce code sou vista et excel 2007, et il fonctionnait très bien ouverture du mail et la pièce jointe avec windows mail

Je suis passé à seven et excel 2010 et windows live mail, le mail s'ouvre bien mais la pièce n'apparait pas ou si le non du chemin se met sur l'adresse du destinataire et me déverrouille le pavé numérique à chaque fois.

Sub fr()
Dim WshShell As Object

Dim Sujt As String
Dim Msg
Dim MailProg As String
Dim Env As String, Pos As Integer
Dim Rep
Dim Texte As String

Sheets("devis").Select

Application.ScreenUpdating = False
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"d:\IKWOTA\pdf\FR_devis_location.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False


Set WshShell = CreateObject("WScript.Shell")
MailProg = WshShell.RegRead _
("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\wlmail.exe\")
Set WshShell = Nothing
Pos = InStrRev(MailProg, "%")
If Pos > 0 Then
Env = Environ(Mid(MailProg, 2, Pos - 2))
MailProg = Mid(MailProg, Pos + 1)
End If

Texte = "Bonjour," & vbCrLf & vbCrLf _
& "Nous vous remercions pour votre contact, et avons le plaisir de vous adresser en pièce jointe un devis." & vbCrLf & vbCrLf _





Sujt = "Le Vaiani -Devis Pré Réservation"

Shell Env & MailProg & " /mailurl:mailto:" & "?subject=" & _
Sujt & "&Body=" & Texte, 3

Application.Wait Now + TimeValue("00:00:02")

SendKeys "%I{ENTER}", True
' Pour indiquer le nom du fichier à joindre
SendKeys "d:\IKWOTA\pdf\FR_devis_location.pdf{ENTER}", True
Application.Wait Now + TimeValue("00:00:02")

Pouvez vous m'aider à trouver une solution

Merci

 

[Hippolite]

Re : envoi pdf par mail via wlmail

Bonsoir,
As-tu cherché ici : Ce lien n'existe plus
A+

 

[repcheks]

Re : envoi pdf par mail via wlmail

Certainement que le raccourci claver a changé, et donc le SendKeys n'envoie plus la bonne combinaison de touches...