Envoi mail Outlook web app via vb excel

Résolu
inthes Messages postés 119 Date d'inscription   Statut Membre Dernière intervention   -  
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   -
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

Réponse 1 / 3
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
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 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
Salut Mike
Tu reconnais quoi ?
0
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
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
Réponse 2 / 3
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
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 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
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 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
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
Réponse 3 / 3
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
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