Ver Mensaje Individual
  #1 (permalink)  
Antiguo 23/07/2009, 23:16
KipeSama
 
Fecha de Ingreso: junio-2009
Mensajes: 4
Antigüedad: 15 años, 10 meses
Puntos: 0
Fallo en el envio de correo.

Soy relativamente nuevo en programacion Web. Tengo una aplicacion y esta envia un correo con el codigo siguiente.

Código:
<script language="VBScript">

//Script de Envio de Mail
	
	sub Envio_mail()

	'Reservación de Salón   
  	  Set myOlApp = CreateObject("Outlook.Application")
	  Set NewMail = myOlApp.CreateItem(olmailItem)
	    
	  newmail.to =  form1.aprobadores.value

	  NewMail.Subject = "Vale de Caja Chica #"&form1.doc.value   
		NewMail.Body = "Tiene un vale de caja en espera de aprobación   a nombre de : " & form1.nombre.value & _
		                "  "& Chr(13) & Chr(10)& _
		                "  "& Chr(13) & Chr(10)& _ 
		               "Para ver el listado de pendientes entre en  
 pagina.asp?ID="&form1.doc.value  & _
		                 "  "& Chr(13) & Chr(10)& _
		                "  "& Chr(13) & Chr(10)& _ 
						"ATENCION: Todo vale aprobado sin verificación física de los documentos, quedará bajo la responsabilidad del aprobador."
		                  
		
	 'Importancia y envio del mail
	  NewMail.Importance = 1
	 
	  NewMail.send
	  	  
end sub

</script>

Mi problema es que en ocasiones envia el mensaje al usuario :

"A program is trying to send an Email on your behalf etc." ( Y le pedi que elegi si le permite o no)

Sabes una manera sin alterar la configuracion de Outlook de que lo le pregunte esto al usuario.