[sspodek]

Amigo tengo este codigo pero no envia email cuando es Windows 98 sabes xq??

Public Function enviar_email(ByVal bemail As bEmail)
Dim email As New MailMessage
Try

With email
.From = bemail.Origen
.To = bemail.Destino
.Subject = "Nuevo Incidente SUNRISE Tcket Nro. " + bemail.Ticket
.Body = bemail.Asunto
.BodyFormat = MailFormat.Text
If bemail.Urgencia = "1" Then
.Priority = MailPriority.High
ElseIf bemail.Urgencia = "2" Then
.Priority = MailPriority.Normal
ElseIf bemail.Urgencia = "3" Then
.Priority = MailPriority.Low
Else
.Priority = MailPriority.Low
End If
.Fields.Add("10.10.1.3", "2") '; //basic authentication
End With

SmtpMail.SmtpServer = "10.10.1.3"
SmtpMail.Send(email)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function