Envoie Mail Automatique...

[Seb67210]

Re !

Le sujet continu...enfin surtout pour moi...

Ci-joint le code pour envoyer un mail sans sécurité MAIS le mail est stocké dans les brouillons de Outlook et donc il n'est pas envoyé...

Une idée ? afin de m'aider svp


----------------------------------------------

Sub test_early_binding_SANS_secu()

'dans EXCEL ou Access ou Word
Dim oApp As Object
'Dim oApp As Outlook.Application
Set oApp = CreateObject("Outlook.Application")
'Set oApp = Outlook.Application
Dim monmail As Object
Set monmail = oApp.CreateItem(olMailItem)
monmail.Subject = "test ss message de secu"
monmail.To = "moceks@hager.fr" '& Chr(64) & "montest.fr"
monmail.Save
Dim strID As String
strID = monmail.EntryID
'Call oApp.send_Monmail(strID)
Set monmail = Nothing
Set oApp = Nothing
End Sub


----------------------------------------------

Sinon une personne à t'elle une version en CDO ? svp

Merci d'avance et vive Outlook ....

 

[Guest]

Re : Envoie Mail Automatique...

Bonjour,

Tu as déjà un fil sur le sujet ici:https://www.excel-downloads.com/threads/correction-de-code-svp.145006/

fais le remonter. Multiplier les fils sur le même sujet a pour conséquence de perdre tout le monde!

A+

 

[Seb67210]

Re : Envoie Mail Automatique...

OK pas de soucis ce n'est pas le but au contraire