envoi pdf par mail via wlmail

andre974

XLDnaute Nouveau
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
 
Dernière édition:

Discussions similaires