Enviar correo desde excel con código

Hola. En la Web encontré el siguiente código para enviar un libro de excel por medio de código VB, me funciona a la perfección pero no hayo la forma de evitar que me aparezca el mensaje que muestra Outlook, al ejecutar la macro:
"""""""" Un programa esta intentando enviar correo electrónico automáticamente a su nombre
¡¿Desea permitirlo?
Si esto es inesperado, puede que sea un virus y deberías elegir no. """""""""""
El código es el siguiente y de antemano Gracias.
Quisiera evitar este mensaje y que al ejecutar la macro lo mande .
Sub Mail_workbook_Outlook_1()
'Working in 2000-2010
'This example send the last saved version of the Activeworkbook
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
strbody = "Texto en Linea" & vbNewLine & vbNewLine & _
"Texto en Linea1" & vbNewLine & _
"Texto en Linea2" & vbNewLine & _
"Texto en Linea3" & vbNewLine & _
" 4 " & vbNewLine & _
"Texto en Linea5 " & vbNewLine & _
" Texto en Linea 6"
On Error Resume Next
With OutMail
.To = "[email protected]"
.CC = ""
.BCC = ""
.Subject = "••¤ Titulo en mensaje¤••"
.body = strbody
.Attachments.Add ActiveWorkbook.FullName
'You can add other files also like this
'.Attachments.Add ("C:\test.txt")
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
De Antemano Gracias.
1

1 Respuesta

2.200 pts. Estoy para ayudar en temas de macros
lo siento amigo . no es mi fuerte.
Sr. en tu perfil dice: "hola, ayudas en macros excel. solo pregunten y responderé."
Que lastima que no tomes enserio la solicitud de ayuda o apoyo.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas