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