Excel - Adicion de archivo a una macro utilizando thunderbird

 
Vista:
sin imagen de perfil
Val: 15
Ha disminuido su posición en 5 puestos en Excel (en relación al último mes)
Gráfica de Excel

Adicion de archivo a una macro utilizando thunderbird

Publicado por Andres (8 intervenciones) el 22/05/2019 23:09:25
Buenas tardes, el siguiente codigo, corresponde a una macro que hice para enviar archivos a un correo utilizando thunderbird, la duda la tengo en que la macro me funciona pero no me adjunta el archivo,les agradezco su expereriencia para que esta macro me pueda adjuntar el archivo y me envie el correo, muchas gracias, el codigo es 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
Sub CorreoThunderbird()
 
    Dim thunderbird As String
    Dim email As String
    Dim cc As String
    Dim asunto As String
    Dim body As String
    Dim Adjunto_Mensaje As String
 
    Sheets("CORREO").Select
    Range("A2").Select
 
    email = Range("B2")
    cc = Range("B3")
    asunto = Range("B5")
    body = Range("B6")
    attachment = Adjunto_Mensaje
 
    Adjunto_Mensaje = Range("B7")
 
 
    'buscamos la dirección del .exe de thunderbird
    'vamos a usar la línea de comandos de thunderbird llamada -compose
    'http://kb.mozillazine.org/Command_line_arguments_(Thunderbird) aquí están todas las líneas de comandos para programadores
 
        thunderbird = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe" & _
        " -compose " & """" & _
        "to='" & email & "'," & _
        "cc='" & cc & "'," & _
        "subject='" & asunto & "'," & _
        ",body='" & body & "'" & """"
 
 
 
        'llamamos la aplicación
        Call Shell(thunderbird, vbNormalFocus)
 
    MsgBox ("CORREO ENVIADO CON EXITO")
 
End Sub
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

Adicion de archivo a una macro utilizando thunderbird

Publicado por Edwin Verde (6 intervenciones) el 11/02/2020 18:24:06
pudiste resolver tu problema?

Yo tengo el mismo detalle, no encuentro como adjuntar el archivo.
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

Adicion de archivo a una macro utilizando thunderbird

Publicado por Andrés Guzman (5 intervenciones) el 11/02/2020 19:35:56
No señor, no pude encontrar la respuesta, me tocó hacer la macro a través de correo gmail, por ahí si pude
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

Adicion de archivo a una macro utilizando thunderbird

Publicado por Edwin Verde (6 intervenciones) el 27/02/2020 14:35:56
Si no es molestía, podrías compartirme la macro para gmail? tengo ese detalle y no encuentro como resolver.
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
sin imagen de perfil
Val: 15
Ha disminuido su posición en 5 puestos en Excel (en relación al último mes)
Gráfica de Excel

Adicion de archivo a una macro utilizando thunderbird

Publicado por Andres (8 intervenciones) el 27/02/2020 16:35:39
Hola buenos dias Edwin, mira este es el codigo:

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
Sub EnvioGmail()
 
Sheets("CORREO").Select
Range("B2").Select
 
Dim Email As CDO.Message
Set Email = New CDO.Message
correo_origen = "correo gmail"
Clave_correo_origen = "clave"
 
correo_destino = Range("B2").Value
Asunto = Range("B5")
Mensaje = Range("B6")
correo_copia = Range("B3").Value
'correo_copia_oculta = "enviocopiaoculta@gmail.com"
 
 
 
 
Email.Configuration.Fields(cdoSMTPServer) = "smtp.gmail.com"
Email.Configuration.Fields(cdoSendUsingMethod) = 2
With Email.Configuration.Fields
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = CLng(465)
    .Item("http://schemas.microsoft.com/cdo/" & "configuration/smtpauthenticate") = Abs(1)
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = correo_origen
    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Clave_correo_origen
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
End With
With Email
    .To = correo_destino
    .From = correo_origen
    .Subject = Asunto
    .TextBody = Mensaje
    .Configuration.Fields.Update
 
    If (Trim(correo_copia) = "") Then
        .CC = correo_copia
    End If
     .AddAttachment (Range("B7").Value)
 
    On Error Resume Next
    .Send
End With
 
 
 
If Err.Number = 0 Then
    MsgBox "EL CORREO FUE ENVIADO AL ADMINISTRADOR ", vbInformation, "Resumen"
Else
    MsgBox "Error: " & Err.Description, vbCritical, "Error"
End If

Nota: donde dice correo gmail va el correo y en clave la contraseña, tambien asegurate de quitarle la seguridad al correo de gmail para que no te ponga problema, gracias !!
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

Adicion de archivo a una macro utilizando thunderbird

Publicado por Edwin Verde (6 intervenciones) el 28/02/2020 00:03:42
Te agradezco infinitamente, con esto me has ayudado bastante.

Saludos!!
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
sin imagen de perfil
Val: 15
Ha disminuido su posición en 5 puestos en Excel (en relación al último mes)
Gráfica de Excel

Adicion de archivo a una macro utilizando thunderbird

Publicado por Andrés Guzman (8 intervenciones) el 28/02/2020 18:24:46
Ok, con gusto !!
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

Adicion de archivo a una macro utilizando thunderbird

Publicado por Edwin Verde (6 intervenciones) el 28/02/2020 19:43:47
Ya logre enviar el correo, pero no me adjunta el archivo, solo va adjunto un archivo AT00001.bin

Tienes alguna idea como adjuntar el archivo correcto?
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
sin imagen de perfil
Val: 15
Ha disminuido su posición en 5 puestos en Excel (en relación al último mes)
Gráfica de Excel

Adicion de archivo a una macro utilizando thunderbird

Publicado por Andres (8 intervenciones) el 28/02/2020 23:20:50
Hola, te envio el ejemplo que me enviaron, me toco corregir algunas cosas pero me funciona, espero que a ti también, me cuentas.
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

Adicion de archivo a una macro utilizando thunderbird

Publicado por Edwin Verde (6 intervenciones) el 28/02/2020 23:52:22
Muchisimas gracias, me voy a poner a adaptarlo a mi archivo.
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