Macro envío de archiv excel por thunderbird
Uso una macro para envío de un archivo por excel pero no me funciona en Thunderbird
¿Cómo hago?
Sub Enviar()
ActiveWindow.SmallScroll Down:=7
Range("A19:I70").Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Columns("A:A").ColumnWidth = 22.86
Application.Dialogs(xlDialogSendMail).Show _
arg1:[email protected], _
arg2:="cupos prepagados a la fecha"
ActiveWorkbook.Close _
SaveChanges:=False
End Sub
¿Cómo hago?
Sub Enviar()
ActiveWindow.SmallScroll Down:=7
Range("A19:I70").Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Columns("A:A").ColumnWidth = 22.86
Application.Dialogs(xlDialogSendMail).Show _
arg1:[email protected], _
arg2:="cupos prepagados a la fecha"
ActiveWorkbook.Close _
SaveChanges:=False
End Sub
1 Respuesta
Respuesta de paramisolo
Las lineas de código del correo no están correctas, cambia por estas y me dices:
Application.Dialogs(xlDialogSendMail).Show _
arg1:="[email protected]", arg2:="cupos preparados a la fecha"
>Un saludo
>Julio
PD: Thunderbird debe de ser el gestor de correo predeterminado para que funcione.
Application.Dialogs(xlDialogSendMail).Show _
arg1:="[email protected]", arg2:="cupos preparados a la fecha"
>Un saludo
>Julio
PD: Thunderbird debe de ser el gestor de correo predeterminado para que funcione.
¿Cómo quedaría completo?
Saludos
Saludos
Desconozco tu macro yo me he limitado a que al llegar al punto de enviar el libro por correo esta parte te funcione, era lo que pedías en tu consulta.
>Un saludo
>Julio
>Un saludo
>Julio
L macro es tal cual la envíe, solo que le modifique los mail para no volverlos públicos, no funciona en thunderbird e slo que puedo decir
Lo predetermine como cliente de correo y nada}
Internet explorer
Herramientas
Programas
Saludos
Lo predetermine como cliente de correo y nada}
Internet explorer
Herramientas
Programas
Saludos
Haz la prueba con un libro en blanco, lo abres y en VBA insertas un modulo y pones solo esto:
Sub correo()
Application.Dialogs(xlDialogSendMail).Show _
arg1:="[email protected]", arg2:="cupos preparados a la fecha"
End Sub
La ejecutas y comprueba que se abre Thunderbird y que tienes el nombre del libro como archivo adjunto la dirección de correo puesta y el motivo del correo "cupos...
Ya me cuentas,.
>Un saludo
>Julio
Sub correo()
Application.Dialogs(xlDialogSendMail).Show _
arg1:="[email protected]", arg2:="cupos preparados a la fecha"
End Sub
La ejecutas y comprueba que se abre Thunderbird y que tienes el nombre del libro como archivo adjunto la dirección de correo puesta y el motivo del correo "cupos...
Ya me cuentas,.
>Un saludo
>Julio
