Send mail et références
Le
Francis SLAWNY
Bonsoir à tous
XPSP Pro3, ACCESS 2003 SP3
Afin de pouvoir envoyer un message électronique depuis une base access,
j'utilise
ceci (pris sur le web)
Sub SendMailCDO()
'Déclaration précoce ("Early Binding")
'Cocher la référence à Microsoft CDO for Exchange 2000 librairy
' ou Microsoft CDO for Windows 2000 librairy
Dim Message As New CDO.Message
With Message
.From = 'mettre une adresse électronique
.To = 'mettre une adresse électronique
.Subject = "sujet du mail"
.TextBody = "Le corps du message"
.GetStream.SaveToFile "C:MonMail.txt", adSaveCreateOverWrite
.Send
End With
Set Message = Nothing
EndSub
Sur une machine ça marche très bien : j'ai coché Microsoft CDO for Windows
2000 librairy
Sur lune autre machine j'ai un message d'erreur à l'execution sur le Send
final.
Sur cette machine c'est Microsoft CDO for Exchange 2000 librairy qui est
coché.
Je voudrais modifier sur cette machine et ajouter la référence à Microsoft
CDO for Windows 2000 librairy qui correspond au fichier cdosys.dll.
Mais apres avoir fait parcourir dans les références et pointé le cdosys.dll
recopié depuis la machine où tout marchait, je ne trouve pas la référence à
Microsoft CDO for Windows 2000 librairy.
Quelqu'un aurait-il une solution ?
Merci d'avance.
FS
XPSP Pro3, ACCESS 2003 SP3
Afin de pouvoir envoyer un message électronique depuis une base access,
j'utilise
ceci (pris sur le web)
Sub SendMailCDO()
'Déclaration précoce ("Early Binding")
'Cocher la référence à Microsoft CDO for Exchange 2000 librairy
' ou Microsoft CDO for Windows 2000 librairy
Dim Message As New CDO.Message
With Message
.From = 'mettre une adresse électronique
.To = 'mettre une adresse électronique
.Subject = "sujet du mail"
.TextBody = "Le corps du message"
.GetStream.SaveToFile "C:MonMail.txt", adSaveCreateOverWrite
.Send
End With
Set Message = Nothing
EndSub
Sur une machine ça marche très bien : j'ai coché Microsoft CDO for Windows
2000 librairy
Sur lune autre machine j'ai un message d'erreur à l'execution sur le Send
final.
Sur cette machine c'est Microsoft CDO for Exchange 2000 librairy qui est
coché.
Je voudrais modifier sur cette machine et ajouter la référence à Microsoft
CDO for Windows 2000 librairy qui correspond au fichier cdosys.dll.
Mais apres avoir fait parcourir dans les références et pointé le cdosys.dll
recopié depuis la machine où tout marchait, je ne trouve pas la référence à
Microsoft CDO for Windows 2000 librairy.
Quelqu'un aurait-il une solution ?
Merci d'avance.
FS
Salut Francis,
Bon, c'est pas pour me faire de la pub :) (surtout que ça ne me rapporte
rien), mais as-tu jeté un coup d'oeil à ma signature ?
Peut-être que ça peut faire l'affaire. Et c'est justement conçu pour
éliminer au maximum tous les problèmes de références, étant écrit en pur
VBA.
--
Envoyer des mails depuis Access, avec ou sans pièce jointe ?
http://www.self-access.com/cms/access/assistants/libmail
-----
Les chiffres dans mon adresse sont de trop.
"Denis" hc3kr1$ccc$
...
Oui pas mal !
J'ai pas regardé le code, cela fonctionne aussi avec le smtp de gmail ?
(port, sécurité)
Mais pour la gratuité, c'est un produit d'appel parce qu'ailleurs, j'ai vu
des appels au don via Paypal ...
Cdt, Blaise
---- ---- ----
Salut Blaise,
Merci d'avoir jeté un œil :)
Je n'ai pas de compte gmail, donc je ne sais pas s'il y a des
particularités. Peux-tu m'en dire plus sur ce point (éventuellement par
mail, histoire de ne pas trop polluer la liste ;))
Actuellement, la connexion se fait classiquement sur le port 25, mais si
le SMTP de gmail utilise un port différent, c'est peut-être une extension
intéressante à ajouter.
Côté sécurité, je gère pour le moment les authentifications LOGIN et
PLAIN. CRAM-MD5 est dans la liste des choses à faire :)
--
Envoyer des mails depuis Access, avec ou sans pièce jointe ?
http://www.self-access.com/cms/access/assistants/libmail
-----
Les chiffres dans mon adresse sont de trop.
Salut Blaise,
J'ai fait une première modif pour permettre l'utilisation de ports 'non
standard'.
Ensuite, j'ai fait quelques essais rapides pour voir ce que le serveur
smtp.gmail.com peut accepter comme authentification : a peu près tout,
mais a priori ni PLAIN, ni LOGIN :(.
Je vais continuer mes tests, mais d'après ce que j'ai pu voir, le serveur
gmail demande également une connexion sécurisée (SSL).
Je te tiens au courant de la progression des recherches :)
Denis
--
Envoyer des mails depuis Access, avec ou sans pièce jointe ?
http://www.self-access.com/cms/access/assistants/libmail
-----
Les chiffres dans mon adresse sont de trop.
réponses. Merci à tous.
Je vais essayer maintenant de les mettre en application.
Salut à tous
FS
"Francis SLAWNY" news:
Salut Blaise,
J'ai fait quelques essais supplémentaires avec gmail. Résultats
mitigés :-/
Connexion sur le port 465 : aucune réponse du serveur. Je ne sais pas ce
qu'il attend.
Connexion sur le port 587 : là, j'ai une réponse normale au EHLO. Le
serveur accepte la connexion, mais me jette assez vite car il nécessite
l'utilisation du chiffrement TLS (anciennement SSL).
J'ai donc, de ce pas, jeté un œil à la RFC répondant au doux numéro de
2246. Mais bon, c'est plutôt velu :)
En conclusion, et pour répondre à ta question initiale : pour le moment,
libMAIL ne peut pas se connecter à un serveur gmail pour l'envoi.
Il me reste donc deux possibilités :
1. trouver une bibliothèque ou une API TLS. Mais je veux limiter autant
que possible les dépendances de la bibliothèque (une API Windows, OK, une
DLL supplémentaire, je ne suis pas très chaud).
2. implémenter moi-même la RFC-2246, directement en VBA. Je pense que ce
doit être faisable, mais ça risque de demander pas mal de temps... denrée
un peu rare en ce moment.
À suivre...
Question subsidiaire : pourquoi passer par GMail ? Skynet impose des
limitations ?
--
Envoyer des mails depuis Access, avec ou sans pièce jointe ?
http://www.self-access.com/cms/access/assistants/libmail
-----
Les chiffres dans mon adresse sont de trop.
Salut Blaise,
Oui, tout ça est fait pour embêter au maximum les spammeurs, en les
empêchant d'utiliser un serveur de manière anonyme. La plupart des
fournisseurs d'accès procèdent de la sorte. Si le poste émetteur est
connu sur leur réseau, il peut utiliser leur serveur SMTP sans plus de
complications, sinon, il se fait jeter.
De nos jours, les relais SMTP 'ouverts' sont devenus très rares.
Google n'étant pas un FAI, l'accès direct à leur serveur SMTP passe par
une authentification nettement plus poussée, c'est normal.
Dès que j'aurai stabilisé les modifications en cours, j'essaierai de
m'attaquer à TLS...
Bonne journée,
Denis
--
Envoyer des mails depuis Access, avec ou sans pièce jointe ?
http://www.self-access.com/cms/access/assistants/libmail
-----
Les chiffres dans mon adresse sont de trop.