sebastien450
XLDnaute Occasionnel
Bonjour s a tous déja!
Je me presente je m'apelle Sebastien et j'ai déja eu recourt au forum pour de l'aide nottament sur les Macro. Je solicite encore une fois votre aide pour une Macro.
Je suis sous Vista et Excel 2007 avec Windows mail et mon but et d'envoyer un mail avec le code mit ci-joint.
J'aimerais avec ce code pouvoir inserer un lien, ou bien une image , qu'importe, le but étant que la personne qui reçoit le mail puisse voir ce qu'il lui faut commander ( il doit commander des pièces).
Donc j'aimerais bien savoir comment metre un lien vers mon classeur ( il sera en réseau) ou une image si c'est plus simple. Voilà mon code qui pour le moment me permet d'envoyer un Mail mais pas de pièces jointes...
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
Je me presente je m'apelle Sebastien et j'ai déja eu recourt au forum pour de l'aide nottament sur les Macro. Je solicite encore une fois votre aide pour une Macro.
Je suis sous Vista et Excel 2007 avec Windows mail et mon but et d'envoyer un mail avec le code mit ci-joint.
J'aimerais avec ce code pouvoir inserer un lien, ou bien une image , qu'importe, le but étant que la personne qui reçoit le mail puisse voir ce qu'il lui faut commander ( il doit commander des pièces).
Donc j'aimerais bien savoir comment metre un lien vers mon classeur ( il sera en réseau) ou une image si c'est plus simple. Voilà mon code qui pour le moment me permet d'envoyer un Mail mais pas de pièces jointes...
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