sebastien450
XLDnaute Occasionnel
Bonjour. Je reviens sur un sujet déja débattu maintes fois mais j'aimerais l'adapter a mon cas!
J'aimerais une macro qui permette d'envoye un mail a partir d'Outtlook ou de Windows Mail.
Dans le dernier cas j'ai deja trouvé et ca marche, je vous met le code. Seulement cela ne marche pas avec Outlook... Or ma priorité et que cela marche avec Outlook! Si vous voulez ajouter des élements tel que l'envoi du fichier en piece jointe, d'un raccourci.... n'hésitez pas ca m'interesse!
merci.
Voila le code a modifier:
Sub MailAvecOEouWinMail1()
Dim WshShell As Object
Dim Dest As String
Dim Sujt As String
Dim Msg As String
Dim MailProg As String
Dim Env As String, Pos As Integer
Set WshShell = CreateObject("WScript.Shell")
MailProg = "C:\Program Files\Windows Mail\WinMail.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
Dest = "sebastien_seb_5@msn.com"
Sujt = "Besoin de pièces"
Msg = "Bonjours Volo il faudrait que tu me commande des pièces pour l'Outil XXX"
Shell Env & MailProg & " /mailurl:mailto:" & Dest & "?subject=" & _
Sujt & "&Body=" & Msg
End
End Sub
J'aimerais une macro qui permette d'envoye un mail a partir d'Outtlook ou de Windows Mail.
Dans le dernier cas j'ai deja trouvé et ca marche, je vous met le code. Seulement cela ne marche pas avec Outlook... Or ma priorité et que cela marche avec Outlook! Si vous voulez ajouter des élements tel que l'envoi du fichier en piece jointe, d'un raccourci.... n'hésitez pas ca m'interesse!
merci.
Voila le code a modifier:
Sub MailAvecOEouWinMail1()
Dim WshShell As Object
Dim Dest As String
Dim Sujt As String
Dim Msg As String
Dim MailProg As String
Dim Env As String, Pos As Integer
Set WshShell = CreateObject("WScript.Shell")
MailProg = "C:\Program Files\Windows Mail\WinMail.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
Dest = "sebastien_seb_5@msn.com"
Sujt = "Besoin de pièces"
Msg = "Bonjours Volo il faudrait que tu me commande des pièces pour l'Outil XXX"
Shell Env & MailProg & " /mailurl:mailto:" & Dest & "?subject=" & _
Sujt & "&Body=" & Msg
End
End Sub