XL 2013 Envoi mail via CDO

ERIC S

XLDnaute Barbatruc
Bonjour
je teste des envois de mail sans outlook à partir de

Code:
Private Sub CDO_Mail_Small_Text()
'test envoi mail fonctionne pas toujours
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

iConf.Load -1    ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
' essai gmail  OUI
'  .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'  .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
'  .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
'  .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
'  .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
'  .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
'  .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "XXXXXXX@gmail.com"
'  .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "motdepasse"
'  .Update 'Let CDO know we have changed the default configuration for this message


   'essai orange OUI

 
    'hotmail NON
'  .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'  .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.live.com"
'  .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'possibles 25, 465, 587
'  .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
'  .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
'  .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
'  .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "XXXXXX@hotmail.fr"
'  .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "motdepasse"
'  .Update 'Let CDO know we have changed the default configuration for this message
 

End With

strbody = "Hi there" & vbNewLine & vbNewLine & _
      "This is line 1" & vbNewLine & _
      "This is line 2" & vbNewLine & _
      "This is line 3" & vbNewLine & _
      "This is line 4"

With iMsg
  Set .Configuration = iConf
    .To = "XXXX@xlpourtpme.fr"
    .CC = ""
    .BCC = ""
    .From = "XXXX@aliceadsl.fr"
    .Subject = "test"
    .TextBody = strbody
    .Send
End With

End Sub
Donc pour gmail, orange (ainsi qu'un autre smtp) c'est ok mais je ne trouve pas pour Hotmail (et aliceadsl).
Sauf erreur de manip j'ai essayé les 3 possibilités de port et les serveurs smtp.hotmail.fr et smtp.live.com

Une aide serait bienvenue, merci d'avance
 

ERIC S

XLDnaute Barbatruc
Bonjour à tous
Merci doublezéro mais pas vraiment une aide (entre fichiers qui me génèrent une erreur 1004 et applis complexes, j'ai peut-être raté quelque chose mais j'en suis au même point)
Comme le pb n'est pas pour moi, je ne veux pas valider de compléments ou autres bibliothèques et la méthode que j'utilise permet de s'en passer.
Elle fonctionne pour 3 serveurs (même orange si, si) et mon interrogation majeure est pour Hotmail
 

ERIC S

XLDnaute Barbatruc
Re bonjour à tous
Roland M c'est sympa et sans doute génial pour celui qui sait ce qu'il doit trouver mais sans mode d'emploi ma petite tête explose : un fil avec 10 fichiers ...
Y-en-a-t 'il un parmi eux qui permet :
- de ne pas activer de complément quelconque
- de paramétrer un envoi via Hotmail qui à priori exige du TSL
??
Pour info ma procrastination internet m'a fait passer sur un site où il semblait que CDO et TLS étaient fâchés, ce qui expliquerait mes échecs : est-ce confirmé?
 

Discussions similaires


Haut Bas