Envoi mail Outlook web app via vb excel

Résolu/Fermé
inthes Messages postés 105 Date d'inscription lundi 18 avril 2011 Statut Membre Dernière intervention 29 juin 2019 - 17 avril 2013 à 13:42
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 19 avril 2013 à 16:49
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é
A voir également:

3 réponses

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 193
19 avril 2013 à 03:12
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+
0
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 193
19 avril 2013 à 10:28
Salut Mike
Tu reconnais quoi ?
0
Mike-31 Messages postés 18113 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 25 novembre 2022 5 013
Modifié par Mike-31 le 19/04/2013 à 14:15
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
0
pijaku Messages postés 12259 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 9 août 2022 2 709
Modifié par pijaku le 19/04/2013 à 07:50
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
0
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 193
Modifié par lermite222 le 19/04/2013 à 10:34
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.
0
pijaku Messages postés 12259 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 9 août 2022 2 709
19 avril 2013 à 15:26
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...
0
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 193
19 avril 2013 à 16:49
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+
0