'método que envia o e-mail.
Private Sub Envia_Email_agora(ByVal De_Pessoa As String, ByVal Para_Pessoa As String, ByVal assunto As String, ByVal corpo As String)
Try
If Me.Page.IsValid Then
EnviarEmail =
New MailMessage()
EnviarEmail.To.Add(Para_Pessoa)
'define o endereço
EnviarEmail.From = New MailAddress(De_Pessoa, "teste", System.Text.Encoding.UTF8)
'declara um array de string
Dim array_anexos(0) As String
'popula o array com todos caminho de anexos criado pelo txtupload que esta armazenado no ViewState.Item(viewstate_anexos).
array_anexos = ViewState.Item(viewstate_anexos)
'declara um contador para varrer o array.
Dim cont As Integer
'faz o loop por todas posições do array.
For cont = 0 To array_anexos.Length - 1
'adiciona + 1 anexo para o obj EnviarEmail de acordo com o caminho da posição do array.
EnviarEmail.Attachments.Add(
New Attachment(array_anexos(cont)))
Next
'Monta e adiciona o assunto do e-mail.
EnviarEmail.Subject = assunto &
" para o gerente: " & ddlGerentes.SelectedItem.Text
'O tipo de codigo que poderar ser transferido.
EnviarEmail.SubjectEncoding = System.Text.Encoding.UTF8
'Adiciona o corpo do e-mail.
EnviarEmail.Body = corpo
'O tipo de codigo que poderar ser transferido.
EnviarEmail.BodyEncoding = System.Text.Encoding.UTF8
'define o formato do corpo do e-mail como html.
EnviarEmail.IsBodyHtml =
True
EnviarEmail.Priority = MailPriority.High
Dim smtp As New SmtpClient() '("romy_moura@yahoo.com.br") 'SmtpClient("150.150.150.18")
smtp.Credentials =
New System.Net.NetworkCredential(De_Pessoa, "******")
smtp.Port = 482
smtp.EnableSsl = True
smtp.Host =
smtp.Host =
smtp.Host =
"smtp.gmail.com"
smtp.Send(EnviarEmail)
'cria um objeto de anexo
Dim anexos As Attachment
'para cada anexo do obj enviaremail até que todos sejam fechados com o dispose.
For Each anexos In EnviarEmail.Attachments
anexos.Dispose()
Next
'deixa o envio do e-mail como nothing.
smtp =
Nothing
'atribui nothing para o viewstate que armazena os diretórios dos anexos como nothing.
ViewState.Item(viewstate_anexos) =
Nothing
End If
Catch SmtpException As Exception
Throw
End Try
End Sub
A cima segue o código que utilizo e abaixo segue o erro que e gerado.
Uma tentativa de conexão falhou porque o componente conectado não respondeu
corretamente após um período de tempo ou a conexão estabelecida falhou
porque o host conectado não respondeu 74.125.93.109:482
Descrição: Ocorreu uma exceção não tratada durante a execução da atual solicitação da Web. Examine o rastreamento de pilha para obter mais informações sobre o erro e onde foi originado no código.
Detalhes da Exceção: System.Net.Sockets.SocketException: Uma tentativa de conexão falhou porque o componente conectado não respondeu
corretamente após um período de tempo ou a conexão estabelecida falhou
porque o host conectado não respondeu 74.125.93.109:482
