Discussion :

[tawot]

Salut,

J'ai eu le même soucis que modus57 dans cette discussion et j'ai eu juste besoin de changer le numéro de port en prenant celui de outlook.

Mais après moi j'ai un autre message d'erreur comme quoi j'ai pu joindre le serveur mais je pense que c'est parce que le réseau de l'entreprise m'empêche de l'envoyer
Donc si quelqu'un sait comment résoudre le soucis.

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
Sub CDO_Mail_Small_Text()
    Dim iMsg As Object
    Dim iConf As Object
    Dim strbody As String
    '    Dim Flds As Variant
 
    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")
 
        iConf.Load -1    ' CDO Source Defaults
        Set Flds = iConf.Fields
        With Flds
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
                           = "smtp-mail.outlook.com"  '"Fill in your SMTP server here"
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587  '465  '25
            .Update
        End With
 
    strbody = "Hi there" & vbNewLine & vbNewLine & _
              "This is line 1" & vbNewLine & _
              "This is line 2" & vbNewLine & _
              "This is line 3" & vbNewLine & _
              "This is line 4"
 
    With iMsg
        Set .Configuration = iConf
        .To = "test_test@hotmail.fr"
        .CC = ""
        .BCC = ""
        .From = """Ron"" <ron@something.nl>"
        .Subject = "New figures"
        .TextBody = strbody
        .Send
    End With
 
End Sub

Voici mon message d'erreur


Merci par avance

[tawot]

Bonjour à tous,

J'ai trouvé la solution à mon message d'erreur dans le message juste avant !

Je n'avais tout simplement pas la bonne adresse du server SMTP et son port...

Alors si vous êtes sur un réseau d'entreprise avec une session dédié et bien il faut demander à l'administrateur du réseau quelle est l'adresse du SMTP et son port afin que le code puisse marcher.

D'ailleurs c'est technique d'envoie de mail est très pratique lorsque l'on veut spamer la boite mail d'un collègue pour déconner sans qu'il ne sache qui le spam vu qu'on peut mettre
n'importe quoi comme mail d'expéditeur. xD
Mais bien sûr ne le faite pas car c'est pas très sympathique de saturer une boite mail d'un(e) ami(e) xD

Voili voilou pour la résolution de mon problème
Bonne continuation à tous