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

Signaler
Messages postés
105
Date d'inscription
lundi 18 avril 2011
Statut
Membre
Dernière intervention
29 juin 2019
-
Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
-
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é

3 réponses

Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 111
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+
Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 111
Salut Mike
Tu reconnais quoi ?
Messages postés
17248
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
16 octobre 2020
4 288
Oh rien,

J'ai écrit la procédure complète pour fonctionner sur toutes les versions Excel, avec ou sans authentification de connexion, pour envoyer plage, feuille, classeur sous extension Excel ou PDF etc ...

j'avais préparé cette astuce sur le conseil d'un intervenant qui se reconnaitra, j'ai trainé les basques et tu as été plus rapide, c'est tout
Messages postés
12186
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 octobre 2020
2 495
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
Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 111
Bonjour Pikaku,
Pour le port, j'ai fait plusieurs tests avec Gmail et Hotmail et ça fonctionne avec 25, je pense que c'est le port utiliser par CDO (pas certain)
Par contre il faut ajouter tout les paramètres indiquer dans la démo.
Messages postés
12186
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 octobre 2020
2 495
Salut lermite
Par contre il faut ajouter tout les paramètres indiquer dans la démo.

Pas forcément, ce code fonctionne parfaitement avec mon serveur smtp, sans les trois derniers paramètres. j'ai juste besoin de paramétrer sendUsing, smtpserver et smtpserverport.

Perso je suis parti de chez eux, et j'ai tout de même pas mal galéré avec des erreurs "le transport a échoué dans sa connexion au serveur" sur le .send...
C'est cela qui est troublant. Le débogage ne pointait pas sur un paramètre mal réglé, mais sur l'envoi...
Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 111
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+