Bonjour,
1) Qui pourrait me modifier ce code afin qu'il utilise Outlook ?
j'ai tenté mais cela ne fonctionne pas...hihi
2) Je souhaiterais que l'email parte tout seul sans forcement cliquer sur le bouton "envoyer" de Outlook
Un grand MERCI d'avance.
---------------------------------------
Sub MailOutlookExpress()
Dim Adresse As String, Sujet As String, Texte As String
Adresse = "moceks@hager.fr"
Sujet = "Le sujet"
Texte = "Bonjour," & vbCrLf & vbCrLf _
& "Vous trouverez ci joint les infos demandées" & vbCrLf & vbCrLf & _
"Cordialement" & vbCrLf & Environ("UserName")
''''Shell "C:\Program Files\Outlook Express\msimn.exe " & "/mailurl:mailto:" & _
'''' Adresse & "?subject=" & Sujet & "&Body=" & Texte
''''
''''Shell ""C:\Program Files\Microsoft Office\OFFICE11\OUTLOOK.EXE
" & "/mailurl:mailto:" & _
'''' Adresse & "?subject=" & Sujet & "&Body=" & Texte
''''
Shell "C:\Program Files\Outlook Express\msimn.exe " & "/mailurl:mailto:" & _
Adresse & "?subject=" & Sujet & "&Body=" & Texte & ""
SendKeys "%I" & "p" & nomfich & "~"
'Signification des caractères après "SendKeys":
'* %I et P = Insertion de la pièce jointe dans Outlook Express. (%=Alt)
'* ~ = Validation. (~=Entrée)
'* %S = Envoyer.
End Sub
1) Qui pourrait me modifier ce code afin qu'il utilise Outlook ?
j'ai tenté mais cela ne fonctionne pas...hihi
2) Je souhaiterais que l'email parte tout seul sans forcement cliquer sur le bouton "envoyer" de Outlook
Un grand MERCI d'avance.
---------------------------------------
Sub MailOutlookExpress()
Dim Adresse As String, Sujet As String, Texte As String
Adresse = "moceks@hager.fr"
Sujet = "Le sujet"
Texte = "Bonjour," & vbCrLf & vbCrLf _
& "Vous trouverez ci joint les infos demandées" & vbCrLf & vbCrLf & _
"Cordialement" & vbCrLf & Environ("UserName")
''''Shell "C:\Program Files\Outlook Express\msimn.exe " & "/mailurl:mailto:" & _
'''' Adresse & "?subject=" & Sujet & "&Body=" & Texte
''''
''''Shell ""C:\Program Files\Microsoft Office\OFFICE11\OUTLOOK.EXE
" & "/mailurl:mailto:" & _
'''' Adresse & "?subject=" & Sujet & "&Body=" & Texte
''''
Shell "C:\Program Files\Outlook Express\msimn.exe " & "/mailurl:mailto:" & _
Adresse & "?subject=" & Sujet & "&Body=" & Texte & ""
SendKeys "%I" & "p" & nomfich & "~"
'Signification des caractères après "SendKeys":
'* %I et P = Insertion de la pièce jointe dans Outlook Express. (%=Alt)
'* ~ = Validation. (~=Entrée)
'* %S = Envoyer.
End Sub