Ver Mensaje Individual
  #4 (permalink)  
Antiguo 26/05/2009, 06:01
javi_cassi
 
Fecha de Ingreso: enero-2008
Mensajes: 268
Antigüedad: 16 años, 4 meses
Puntos: 11
Respuesta: Envio mails desde mi pagina asp .net

Hola Sandra, te explico el por qué de mi respuesta.

Yo de web forms entiendo poco, soy mas de aplicaciones para windows (o para eso me tiene la empresa, jejej)
El caso es que ademas hago paginas web (no en asp), y cuando tengo qeu enviar un correo por PHP, a veces el que lo recibe le llega a su papelera de reciclaje (y claro, cuando estas verificando si ha llegado o no, estaba ahí)

Como decías que a veces lo tenías y a veces no, a lo mejor te sucedía lo mismo, así qeu era una idea.

De todas formas, te adjunto la funcion que uso yo para el envio de correo (ten en cuenta que para aplicaciones windows)


Cita:
Public Function envio_correo(ByVal RowList As DataGridViewRow, ByVal mail_trdor As String) As Integer
Dim SmtpMail As New SmtpClient("hcas1")
Dim fromAddr As New MailAddress("[email protected]")
Dim toAddr As New MailAddress(calc_destinatario(RowList))
Dim email As New MailMessage(fromAddr, toAddr)
'archivo adjunto de ejemplo
Dim sFile As String = Obtener_fichero(RowList) '"C:\formulario.pdf"
'define un nuevo objeto adjunto
Dim oAttch As Mail.Attachment = New Mail.Attachment(sFile)
Dim valor As Integer = 1
Dim cuerpo As String

Try

'Especificamos manualmente las credenciales (pueden ser distitnas al usuario actual)
'Las especificamos como ("DOMINIO\USUARIO","PASSWORD")
'SmtpMail.Credentials = New System.Net.NetworkCredential("DOMINIO\USUARIO","PA SSWORD")

cuerpo = "<font face=Tahoma><p>Saludos</p> "

With email
.IsBodyHtml = True
.Subject = "Envio del pedido " & RowList.Cells(0).Value
.Body = cuerpo
.Priority = MailPriority.Normal
.Attachments.Add(oAttch)
End With

email.CC.Add(email_de_la_persona)
'Se manda siempre copia a la cuenta general de AyL
email.CC.Add(fromAddr)
'Se envía el correo
SmtpMail.Send(email)
valor = 0
Return valor
Catch ex As Exception
MsgBox(ex.Message)
valor = 1
Return valor
End Try
End Function


espero qeu te valgan ambass indicaciones. saludos