Envoi mail Outlook web app via vb excel Résolu/Fermé

Question

Bonjour,
j'essaye d'envoyer un mail via Office Excel 2007 avec Outlook Web App .


Sub EnvoieCdo()
Dim oCDO
Set oCDO = CreateObject("CDO.Message")
With oCDO
   With .Configuration.Fields ' Configuration "du compte mail SMTP"
     .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
     .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.outlook.fr"
     .Update
End With
  .From = "aaaa@bbbb.fr"
  .To = "cccc@bbbb.fr"
  .Subject = "Essai de mail" & Now
  .TextBody = "Voici un petit message " & vbCrLf & "pour tester l'envoi de mail par CDO/VBScript"
  .Send
End With
End Sub
erreur "le transport a échoué dans sa connexion au serveur" le .Send  est surligné

deuxième méthode


Sub EnvoiDemande()

Dim MonOutlook, MonMessage As Object
Dim Corps As String
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.CreateItem(0)
 
Corps = "Bonjour," & Chr(13) & Chr(10)
Corps = Corps & "Voici une nouvelle demande." & Chr(13) & Chr(10)
_  _
ça bloque sur la ligne 
Set MonOutlook = CreateObject("Outlook.Application")

je pense que ça vient du fait que je n'ai pas outlook installeé

lermite222 · Answer

Bonjour,
je pense que ça vient du fait que je n'ai pas outlook installeé
Essaye un peu de lancer ta casquette en l'air.... quand tu n'a pas de casquette !! :-)

Ça va plutôt t'intéresser
 A+

pijaku · Answer

Bonjour,  

Pour la seconde méthode, en effet, sans outlook tu peux jeter ta casquette...   

Par contre, pour la première, tu n'as pas forcément besoin de l'avoir installé si tu utilises cdo. Par contre, tu dois renseigner 3 critères :  
SendUsing ( = 2 c'est bien)  
Smtpserver : au choix  
et le port du serveur smtp, par exemple :  
objMessage.Configuration.Fields.Item _  
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
d'où ton erreur "le transport a échoué dans sa connexion au serveur"...   

Donc : va lire le lien proposé par lermite (salut) et si tu as des questions ou des réglages reviens ici.  
Exemple de réglage : le n° de port peut varier. En général c'est 25, mais par exemple pour Gmail, le port est le 465...  
Cordialement,  
Franck P

lermite222 · Answer

Re Pijaku,
 Tu dis.. Pas forcément
Tu a tout à fait raison, voir les commentaires qui sont dans la démo.
Mais je peu dire qu'avec mon compte Gmail, si je ne met pas toutes les indications ça me renvoi cette fameuse erreur.
J'ai IncréditMail comme gestionnaire de mail sur mon PC, et je crois que c'est l'appli qui détermine le type de connexion, même avec Hotmail qui à le port 587 (pas de SSL) et bien sur mon PC c'est configurer avec SSL et authentification. !!
Note, avec CDO quel que soit l'erreur elle apparaît toujours sur la ligne Send.
A+