Adicion de archivo a una macro utilizando thunderbird
Publicado por Andres (9 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_MensajeAdjunto_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
0
