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:
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
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
0