Je voulais envoyer des mail de manière simple, mais à chaque fois on pouvait pas l'automatiser de manière simple, ou alors on pouvait pas joindre de fichiers . En plus je voulais pas me prendre la tête avec Windobe ou mapipe ...
Alors voilà, ça fera pas décoller une fusée, mais moi ça me rend bien service ...
Bises à tous !
Source / Exemple :
Private Sub Commande0_Click()
Dim x
' Lance Outlook express avec l'adresse , l'objet et le message
x = Shell("C:\Program Files\Outlook Express\msimn.exe " & "/mailurl:mailto:toto@site.com?subject=salut&body=coucou", vbNormalFocus)
' Pour faire Insertion pièce jointe
SendKeys "%I{ENTER}", False
' Pour indiquer le nom du fichier à joindre
SendKeys "c:\temp\fichier.txt{ENTER}", False
' Pour faire envoyer maintenant
SendKeys "%F{DOWN}{ENTER}", False
End Sub
Conclusion :
faites pas des commentaires pour dire que c'est nul, moi je vous dis juste que ça me rend bien service ....
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.