Mails CDO erreur sendusing

**Ric500** · 09/06/2017, 20h19

Bonjour à tous,

Je reviens vers vous, cette fois pour un problème d'envois de mail par CDO.

Mon but : lors de la saisie par mes clients d'un numéro de licence, je souhaiterais que mon soft me renvoie un certain nombre de renseignements indépendamment du mailer utilisé par celui-ci.

Le très bon tuto de jdgayot: http://http://jdgayot.developpez.com...ewsletter-cdo/ ne me laisse cependant que peu d'espoir quand au paramétrage de cet envoi. Mon premier choix consistait en la méthode proposée au paragraphe VI-A-2-a:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Option Compare Database
Option Explicit
 
Private Sub envoiCdo)
    On Error GoTo Error_send
    Dim oCdo As Object
 
    Set oCDO = CreateObject("CDO.Message")
 
    With oCDO
        With .Configuration.Fields
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2                  'ou CdoSendUsingPort : utilisation réseau
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.free.fr"    'nom ou IP du serveur SMTP
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = "25"          'port utilisé
            .Update
 
        End With
        .Subject = "envoi exemple"                    ' objet du message
        .From = "expediteur@free.fr"                  ' adresse de l'expéditeur
        .To = "destinataire@free.fr"                  ' adresse du destinataire
        .TextBody = "Ceci est un message de test."    ' corps du message en format texte brut
        .Send
 
    End With
 
Fin:
    Set oCdo = Nothing
    Exit Sub
 
Error_send:
    MsgBox "Erreur d'envoi " & Err.Number & "  " & Err.Description
    Resume Fin
 
End Sub

Malheureusement une erreur est systématiquement levée comme ci-après:
Nom : erreur CDO.png
Affichages : 1348
Taille : 10,4 Ko

Je précise je pense avoir inclus les bonnes références:
Nom : références.png
Affichages : 1291
Taille : 26,7 Ko

Malgré toutes mes tentatives de paramétrages divers et recherches sur le sujet, je ne sors pas de la même erreur

.

Mon but serait d'envoyer un mail sans faire référence à un quelconque serveur smtp: ce qui est expliqué au paragraphe

VI-A-4. Variante en utilisant la messagerie du PC

qui décrit la procédure suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Option Compare Database
Option Explicit
 
Private Sub envoiCdo()
    On Error GoTo Error_send
 
    Dim oCdo As Object
    Dim strHtml As String  'variable contenu du corps de message
 
    ' Définit le contenu du message au format HTML
    strHtml = "<HTML><HEAD><BODY>"
    strHtml = strHtml & "<center><b> Ceci est un message de test au format <i><Font Color=#ff0000 > HTML. </Font></i></b></center>"
    strHtml = strHtml & "</br>Veuillez prendre connaissance de la pièce jointe."
    strHtml = strHtml & "</BODY></HEAD></HTML>"
 
    Set oCdo = CreateObject("CDO.Message")
 
    With oCdo
        GoTo Envoi
 
ConfigSmtp:
        With .Configuration.Fields
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2                  'ou CdoSendUsingPort : utilisation réseau
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.free.fr"    'nom ou IP du serveur SMTP
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = "25"          'port utilisé
            .Update
        End With
 
Envoi:
        .Subject = "envoi exemple"                           ' objet du message
        .From = "expediteur@free.fr"                         ' adresse de l'expéditeur
        .To = "destinataire@free.fr"                         ' adresse du destinataire
        .HtmlBody = strHtml                                  ' corps du message HTML
        .MDNrequested = True
        .Send
    End With
 
Fin:
    Set oCdo = Nothing
    Exit Sub
 
Error_send:
    If Err.Number = -2147220960 Then
        Select Case MsgBox("Une erreur est survenue lors du transfert sur votre messagerie." _
                           & vbCrLf & "Voulez-vous envoyer votre message directement ?" _
                           , vbOKCancel Or vbExclamation Or vbDefaultButton1, "Erreur")
 
        Case vbOK
            ' Si réponse OK : on passe sur la configuration SMTP.
            GoTo ConfigSmtp
        Case vbCancel
            ' Si réponse Non : on abandonne.
            GoTo Fin
        End Select
    Else
        MsgBox "Erreur d'envoi " & Err.Number & "  " & Err.Description
        Resume Fin
    End If
 
End Sub

Qui me lève l'erreur suivante (après avoir bien sûr adapté le code à mes besoins concernant le destinataire) :
Nom : erreur CDO time out.png
Affichages : 1268
Taille : 11,0 Ko

Nom : erreur CDO time out.png
Affichages : 1268
Taille : 11,0 Ko

Je ne vois pas de solution pour l'instant, si une bonne âme pouvait me conseiller...

Merci d'avance de vos réponses

Invité · 09/06/2017, 21h49

Bonsoir,
https://www.developpez.net/forums/d1...t/#post7968025

Pour utiliser le port 25 chez free il faut aller sur le site de free et désactiver IpV6!
Note que smtp.free.fr c'est bien un serveur!

**Ric500** · 10/06/2017, 14h47

Merci dysorthographie de ta réponse,

Je me suis mal exprimé peut-être dans ma question ou alors, je n'ai pas compris ta réponse.
Je souhaite diffuser cette application et les utilisateurs ne sont pas tous chez free du coup je voudrais qu'ils envoient des mails CDO indépendamment de tout serveur: c'est pas possible sans lever l'erreur "sendusing" ?

Invité · 10/06/2017, 14h57

Bonjour,
Il faut que tu utilise la version Outlook dans le même lien! ce genre de prérequis est quelque chose d'habituel

CDO envoyer obligatoirement vers un serveur ou un répertoire mais dans le second cas la belle affaire!

**Ric500** · 10/06/2017, 17h17

Bonjour,

Je vois, çà m'arrange pas tout le monde n'a pas le pack office et j'aurais voulu m'affranchir d'un mailer. N'existe-t-il pas de solution pour envoyer des mails en utilisant seulement windows ?

Invité · 10/06/2017, 20h00

Il faut proposer un formulaire de configuration smtp qui sauvegarde les valeur dans un table!

Personnellement c'est ce que je fai!

**Ric500** · 10/06/2017, 20h06

Merci, je crois que je vais devoir imaginer mon bazar un peu différemment.

Ton aide m'a été précieuse dysorthographie

Comme le disait Prévert:

Je suis comme je suis, est-ce ma faute à moi ?

Invité · 10/06/2017, 20h23

Le CDO que je propose dans le lien marche avec toutes config smtp.

**Ric500** · 11/06/2017, 16h11

Hello dysorthographie,

Je t'explique: dans l'idée, je voulais proposer mon soft en téléchargement libre avec une licence limitée dans le temps. A expiration de celle-ci, et lors de la saisie d'une licence définitive, le soft m'envoyait en "sous-marin" un mail CDO qui me donnait les coordonnées de l'utilisateur. D'où l'idée d'un envoi de mail sans paramétrage: le mail universel, quoi !

Invité · 11/06/2017, 17h27

Bonjour,
Tu ne peux pas faire ce genre de choses, c'est totalement illégal!

Tu dois informer l'utilisateur que sa licence d'évaluation est arrivé a sont terme et comment la renouveler

Se serait tellement plus simple de dire envoyez moi un chèque et je vous envoi par mail votre licence!

https://www.developpez.net/forums/d1...l/#post8938804

**Ric500** · 11/06/2017, 20h37

OK, j'ai sauté une étape.

Effectivement,
1, le soft doit avertir de la fin de période d'essai,
2, S'arrêter, proposer une licence définitive, et là le client fait sa demande,
3, paiement
4, renvoi et installation de la licence définitive

C'est à ce moment pour éviter le piratage, que j'aurais voulu un mail CDO avec des paramètres système identifiant la machine

C'est pas illégal çà, je pense ?

Invité · 11/06/2017, 21h00

Non ça c'est Ok.

Donc tu n'as pas besoin de la messagerie du client!

Tu utilise une à toi. Le problème c'est la sécurité du code et pour les informations smtp, et le contournement de la licence.

**Ric500** · 11/06/2017, 21h46

Je crois que j'ai tout compris

Merci dysorthographie c'est cool de rencontrer des gens prêts à un modèle collaboratif d'autant que ma démarche concerne un soft destiné aux thérapeutes holistiques.
Je te plussoie encore
Et re-merci de ta disponibilité en plein weekend.

Mails CDO erreur sendusing [AC-2007]

VBA Access

Vue hybride

Discussions similaires

Partager

Partager