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 ....
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 ....