CDO avec GMail

Version imprimable

Voir 40 message(s) de cette discussion en une page

31/03/2016, 11h46
Invité

tu peux également utiliser un serveur mail il en existe de gratuit (MERCURY,hMailServer), tu te connecte à smtp.free et tu gère ton nom de domaine sens le payer chez qui que ce soit! rdurut@dugenoux .eu!

1 pièce(s) jointe(s)

je viens de retester pour etre sur et cela fonctionne et comme émetteur j'ai utilisé mon adresse gmail

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub test()
envoyer = CDO("monaddressmail@hotmail.fr", "danielC@gmail.com") ' danielC@.. n'existe pas bien entendu mais ca va fonctionner quand meme
End Sub
Function CDO(dest, emeteur)
Dim Adresse As String, MDP As String, Desti As String
Set cdomsg = CreateObject("CDO.message")
With cdomsg.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'NTLM method
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.sfr.fr"
.Item("http://schemas.microsoft.com/cdo/configuration/smptserverport") = 25
.Update
End With
' build email parts
With cdomsg
.To = dest
.From = emeteur
.Subject = "mon mail"
.TextBody = "salut c'est daniel comment va tu  "
.Send
End With
    Set cdomsg = Nothing
End Function

preuve sur ma boite mail
Pièce jointe 205463

31/03/2016, 11h56
Invité

maintenant réponds toi!
31/03/2016, 11h57
patricktoulon

re

:mouarf::ptdr:

j'avais déjà essayé pour délirer avec même adresse pour émetteur et destinataire ca marche aussi :ptdr:
31/03/2016, 12h00
eriiic

Bonjour,

Attention, chez Free tu as un partage des ports pour certains clients.
Si tu es touché et que tu n'es pas dans la tranche avec les ports <1000 tu es mal...
Contrôle dans les paramètres de la freebox.
http://www.universfreebox.com/articl...eant-les-ports
eric
31/03/2016, 12h00
cerede2000

Coool le SMTP SFR est parfait pour envoyer du SPAM..... :aie:
Port 25 sans authentif !!!!
31/03/2016, 12h01
Invité

oui dans cernait cas de figure metteur du mail et l’émetteur smtp reçoivent la réponse!
31/03/2016, 12h01
Invité

Citation:

Envoyé par cerede2000

Coool le SMTP SFR est parfait pour envoyer du SPAM..... :aie:
Port 25 sans authentif !!!!

que de ta freebox IpV6 oblige!

Citation:

Envoyé par eriiic

Bonjour,

Attention, chez Free tu as un partage des ports pour certains clients.
Si tu es touché et que tu n'es pas dans la tranche avec les ports <1000 tu es mal...
Contrôle dans les paramètres de la freebox.
http://www.universfreebox.com/articl...eant-les-ports
eric

il faut inhiber l'IpV6 de ton compte sur internet!
31/03/2016, 12h05
patricktoulon

re

Citation:

Envoyé par cerede2000

Coool le SMTP SFR est parfait pour envoyer du SPAM..... :aie:
Port 25 sans authentif !!!!

ben libre a toi de choisir ta ligne de conduite
sur les paramètres de ta boite mail dans n'importe quelle application mail il y a le blocage de l'émetteur et le domaine c'est donc simple cela n'arrive qu'une fois !!!!!!

et le port 25 c'est simplement que j'ai oublier de supprimer cette ligne aussi

CDo c'est le premier object concernant le web que j'ai trituré dans tout les sens en vba vbs hta javascript

c'est d'une simplicité surtout que des sources sur ce sujet il y en a moulte
31/03/2016, 12h15
Invité

je suis d’accord avec Patrick, surtout que chez free le port 25 exige authentification au dehors du domicile!
31/03/2016, 12h21
eriiic

Citation:

Envoyé par rdurupt

il faut inhiber l'IpV6 de ton compte sur internet!

Je suppose que tu voulais dire l'IpV4. Le partage des ports a plutôt l'air de le concerner.
31/03/2016, 12h27
Invité

non il y a IpV4 et IpV6 est une surcouche

https://fr.wikipedia.org/wiki/IPv6
31/03/2016, 12h52
patricktoulon

re

Citation:

Dans le cas d’une utilisation d’un serveur SMTP local, toute la partie de mise à jour des champs de configuration [objCDO.Configuration.Fields] devient inutile. il suffit dès lors de supprimer cette section, et cela marche en utilisant
le serveur SMTP local

libelule a changer sa stratégie je suis en train de revoir cela pour avoir le smtp dynamiquement ou que l'on soit
31/03/2016, 12h55
Invité

il n'y à rien autre à dire effectivement je confirme!

http://www.learnup.fr/index.php/tuto...smtp-chez-free

moi j'utilise hMailServer avec mon smtp local orange (désolé), comme je m'occupe d'une association, j'ai créé un non de domaine (grâce à ce serveur) que j'affecte au adresse mail des membres du bureau!
31/03/2016, 13h16
cerede2000

@Patricktoulon : Comment ça

Citation:

avoir le smtp dynamiquement ou que l'on soit

?? :)
31/03/2016, 13h55
Daniel.C

Citation:

Envoyé par cerede2000

????????
Car tu n'avais pas encore essayé le code du topic que j'ai indiqué hier ?

A ma courte honte, non. Quand j'ai vu que le code utilisait le port 465, que j'avais testé, j'ai pensé que ça allait planter. Je n'ai pas cherché plus loin. J'ai décortiqué le code seulement ce matin. C'est le même, seulement j'y suis arrivé par le lien de durupt.

Ma seule excuse est que j'ai été noyé par la multitude de réponses (qui témoigne de la vitalité du forum).

Donc sois remercié. Mieux vaut tard que jamais.

;)allez une dernière

si tu veux pas t'ennuyer avec cela choisi ton smtp du fai
comment ?
en metant dans la ligne de configuration (field) du serveur smtp ceci:mon_smtp

et quelque part dans le module tu met la fonction
Code:

1 2 3 4 5 6 7 8 Function mon_smtp() Dim Req, url url = "http://check414.free.fr/index.php/mon-smtp/" Set Req = CreateObject("microsoft.xmlhttp") Req.Open "post", url, False Req.send With CreateObject("htmlfile"): .write Req.responsetext: mon_smtp = Split(Split(.body.innertext, "Votre smtp est : ")(1), vbCrLf)(0): End With End Function
la sub de test pour essayer
Code:

1 2 3 Sub test() MsgBox mon_smtp End Sub
;)
résultat ou que tu soit (chez toi , au boulot ,chez un pot, un réseaux public(freewiffi) tu a ton smtp automatiquement sans le chercher

31/03/2016, 14h12
cerede2000

Pas mal @Patricktoulon !!!
Sauf si l'accès Internet est restreint comme souvent le cas dans les entreprises :aie:

Mais super idée ! Je ne connaissais pas ce site :)
31/03/2016, 14h20
patricktoulon

re

oui j'ai fait une petite recherche et divers essai étant donné que libellule a changé sa stratégie et bénéficie de la protection adsgoogle....push.....(une vraie daube ce machin)

ce qui est facilement démontable comme je le faisais avec le projet de sebphyto pour son PMU turf en faisant sauter les string des balise "script" et retranscrivant dans un htmldocument ("htmlfile" en late binding) mais bon dans le temps je me suis permis d'aller voir ailleurs

donc voila je mettrais la contrib a jour

ps: si il y a des restriction sur la navigation dans la boite(entreprise) il est fort possible que l'obligation de configurer le proxi dans les field de la confurationCDO soit obligatoire
ce qui est une vrai galère

donc résultat des courses c'est walouhh
31/03/2016, 14h26
cerede2000

Non car en générale dans les restrictions comme je les connais, vu faire et mise en place également on restreint le port 80 voir le 443.
Mais des ports comme 21, 25 465 ou 587 ne sont pas restreint.
Je parlais juste du coup de la récupération automatique de l'adresse SMTP ;)

Voir 40 message(s) de cette discussion en une page