Problema al enviar correo con VB
Publicado por Lolo (2 intervenciones) el 14/11/2005 23:58:02
Hola estoy usando esta sentencia para enviar correo desde visual:
Dim out As Outlook.Application
Set out = CreateObject("Outlook.Application")
With out.CreateItem(olMailItem)
.Recipients.Add "aki pongo dirección"
.Subject = "mensaje de prueba"
.Attachments.Add ("d:\....")
.Send
End With
Cuando lo ejecuto, me sale un cuadro de dialogo del outlook diciendo algo así como que un programa automatizado está intentando enviar correo en mi nombre y para que me lo envíe le tengo que dar al botón "SI".
Tambien me pasa esto intentando enviar correo por medio de MAPI.
Alguien sabe como hacer para que no me salga este cuadro y me lo envie sin problema??
Gracias.
Dim out As Outlook.Application
Set out = CreateObject("Outlook.Application")
With out.CreateItem(olMailItem)
.Recipients.Add "aki pongo dirección"
.Subject = "mensaje de prueba"
.Attachments.Add ("d:\....")
.Send
End With
Cuando lo ejecuto, me sale un cuadro de dialogo del outlook diciendo algo así como que un programa automatizado está intentando enviar correo en mi nombre y para que me lo envíe le tengo que dar al botón "SI".
Tambien me pasa esto intentando enviar correo por medio de MAPI.
Alguien sabe como hacer para que no me salga este cuadro y me lo envie sin problema??
Gracias.
Valora esta pregunta
0