Windows Server 2003 - Error de transporte en la conexion con el servidor

   
Vista:
Imágen de perfil de VICENTE

Error de transporte en la conexion con el servidor

Publicado por VICENTE (1 intervención) el 08/04/2015 01:04:50
Hola a todos compañeros de fatiga.

Estoy liado con el envio de ficheros por mail, desde una aplicación access 2013.

Basado en el código de Neckkito, he creado el siguiente:

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
61
62
63
64
Function EnvioMail()
 
'DEFINIMOS LAS CONSTANTES DE IDENTIFICACION DE MI CUENTA GMAIL
    Const MiMail As String = "vslcines@gmail.com"
    Const MiPass As String = "*********************" ' LA CONTRASEÑA DE LA CUENTA GMAIL
    Const MiSmtp As String = "smtp.gmail.com"
 
'DEFINIMOS LAS VARIABLES DE LOS COMPONENTES DEL MAIL
    Dim ASUNTO As String
    Dim MSG As String
    Dim MailA As String
    Dim MailCC As String
    Dim MailCCO As String
    
'DAMOS VALORES A LAS VARIABLES
    ASUNTO = "Envio Arquivo Leituras"
    MSG = "Adjunto encaminhamos arquivo de Leituras do Hospital..."
    MailA = "vslcines@gmail.com"
 
'CONFIGURAMOS EL BLOQUE CDO
    Dim cdoConfig
    Dim msgOne
    Set cdoConfig = CreateObject("CDO.Configuration")
    With cdoConfig.Fields
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = 465
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = MiSmtp
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = MiMail
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = MiPass
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        .Update
    End With
 
'CONFIGURAMOS EL MENSAJE
    Set msgOne = CreateObject("CDO.Message")
    Set msgOne.configuration = cdoConfig
    msgOne.To = MailA
    msgOne.CC = MailCC
    msgOne.BCC = MailCCO
    msgOne.From = MiMail
    msgOne.Subject = ASUNTO
    msgOne.TextBody = MSG

'CONFIGURAMOS EL ADJUNTO
    Dim ADJUNTO As String
    Dim RUTA As String
    Dim FICHERO As String
 
    RUTA = Application.CurrentProject.Path & "\Output\"
    FICHERO = RUTA & Dir(RUTA & "*.txt")
    ADJUNTO = "file://" & FICHERO
 
    If Not IsMissing(FICHERO) Then
        msgOne.AddAttachment (ADJUNTO)
    Else
        Exit Function
    End If
    msgOne.Send
 
'AVISAMOS QUE EL ENVIO SE HA PRODUCIDO
    MsgBox "Arquivo encaminhado corretamente", vbInformation, "CORRETO"

End Function

El caso es que en la linea "msgOne.Send" me aparece un Error de transporte en la conexion con el servidor.

Si alguien me puede echar una mano, se lo agradeceré.

Espero vuestros comentarios.

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Error de transporte en la conexion con el servidor

Publicado por Manuel (1 intervención) el 14/10/2015 13:15:06
soy un aprendiz principiante, yo he tenido el mismo error, has probado a cambiar al final de la línea 30 "True" por "False" (smtpusessl)?.

Good luck!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar