valider envoi mail.

[sebastien450]

bonjour.
J'ai rentrer se code afin d'envoyer un mail.
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 = "Test d'envoi avec Excel"
Msg = "Bonjours il faudrait commander pieces"
Shell Env & MailProg & " /mailurl:mailto:" & Dest & "?subject=" & _
Sujt & "&Body=" & Msg
End
End Sub

Il marche et m'ouvre bien Windows mail avec les champs renseignés. Seulement l'envoie du mail ne se fait pas automatiquement et il faut que je clique sur "envoyer".

Alors je viens vers vous pour vous demandez coment faire pour l'envoyer sans avoir à cliquer sur "envoyer"?
Merci a vous.

[THE CAT 2007]

Bonjour,

Regarde si tu ne trouve pas ton bonheur :

http://www.excel-downloads.com/forum...n-definie.html

[sebastien450]

Je veut envoyer un lien du fichier, ou un raccourcit non pas une image du fichier!

[nouv]

bonjour,
j'utilise pas winmail mais je pense que le lien donné par the cat 2007 présente néamoins peut être un intérêt :

Dim olmail As MailItem
    Set ol = New Outlook.Application
    Set olmail = ol.CreateItem(olMailItem)
    With olmail
        .To = Range("A1").Value
        .Subject = "Envoi automatisé"
        .Body = "Envoi automatisé de : ImageDePlage.jpg"
        .Attachments.Add ActiveWorkbook.Path & "\ImageDePlage.jpg"
        .Send
   End With

le . send doit permettre d'envoyer et je n'en vois pas dans ton code

><>

[Staple1600]

Bonsoir


Voir du côté du l'utilitaire : clickyes

ou utilisez CDO: Sending mail from Excel with CDO

[sebastien450]

J'ai deja essayer le .send mais il ne marche pas avec mon code...
Je viens de regarder tes liens et je n'ai rien trouver dsl.

[sebastien450]

Quelqu'un pour m'aider la desus?

[MJ13]

Bonjour à tous.

Moi j'utilise Super Macro.

[sebastien450]

Je met la réponse car ca peut servir: j'utilise Sendkeys pour crtl +s!

[MJ13]

Bonjour Sébastien,

Pourrais-tu mettre ton code par rapport à Sendkey?
Cela peut intéresser du monde.

Et peux tu préciser quelle messagerie tu utilises (est-ce Windows mail)?

[sebastien450]

Oui j'utilise Windows Mail pour le moment, aprés je doit le faire sur Outlook donc je vous dirais, en attendant voila le code car je sais que c'est bien agréable quand on cherche!
Sheets("Commande Out 9009").Select
Range("A1:J62").Select
Selection.Copy
Windows("Gestion Stock Ressorts.xls").Close

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 = "e"


Shell Env & MailProg & " /mailurl:mailto:" & Dest & "?subject=" & _
Sujt & "&Body=" & Msg

Attente (5)
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys ("^{v}")
SendKeys "%s"
Attente (5)
End Sub

[MJ13]

Bonjour,

Merci pour le code.

[MJ13]

Re bonjour

J'avais fait un fichier pour Outlook dans le post suivant:

http://www.excel-downloads.com/forum...tml#post488588

[La Vouivre]

Bonjour les amis
Je ne parviens pas à ouvrir le fichier qui est dans le post
http://www.excel-downloads.com/forum...tml#post488588
j'ai un message comme quoi winzip ne peut ouvrir le fichier:il semble pas être un zip valide
je suis tres intéresser par l'envoi de mail avec outlook ,si quelqu'un peut m'aider merci à tous

[MJ13]

Bonjour

A tester (zippé avec 7Zip).