none
Enviar foto de uma picturebox como anexo de email RRS feed

  • Pergunta

  • gente alguem tem ideia de como enviar uma foto de uma picturebox como anexo de email?

    Lembrando que a foto que esta no picturebox nao esta salva em nem um lugar do pc, é que eu fiz uma func que capta a foto do desktop e manda pra picturebox sem salvar no pc, e quero manda essa imagem como anexo de email agradeço ;D
    sexta-feira, 12 de março de 2010 23:39

Respostas

  • Para Enviar E-mail com Anexo, veja um Exemplo do nosso amigo Robson Votri daqui do Fórum:

    Public Sub EnviarEmail(ByVal remetente As String, ByVal destinatario As String, ByVal assunto As String, ByVal mensagem As String, ByVal servidorSMTP As String, ByVal autenticacao As String, ByVal SmtPort As String, ByVal anexos As String)
    
        ' Optional ByVal anexos As System.Collections.Generic.List(Of Net.Mail.Attachment) = Nothing)
    
        Dim attach As New System.Collections.Generic.List(Of Attachment)
    
        attach.Add(New Attachment(anexos))
    
    
    
        Try
    
          Dim mMailMessage As New MailMessage()
    
    
    
          ' Define o endereço do remetente
    
          mMailMessage.From = New MailAddress(remetente) ', 'nomeremetene)
    
    
    
          ' Define o destinario da mensagem
    
          mMailMessage.To.Add(New MailAddress(destinatario))
    
          ' verifica se o valor para cc é nulo ou uma string vazia
    
          ' Define o assunto 
    
          mMailMessage.Subject = assunto
    
          ' Define o corpo da mensagem
    
          mMailMessage.Body = mensagem.Trim()
    
    
    
          ' Define a prioridade da mensagem como normal
    
          'mMailMessage.Priority = MailPriority.Normal
    
    
    
          'Definir formato html para o email
    
          mMailMessage.IsBodyHtml = True
    
    
    
          'Prioridade do email
    
          mMailMessage.Priority = MailPriority.Normal
    
    
    
          ' Cria uma instância de SmtpClient - Nota - Define qual o host a ser usado para envio 
    
          ' o nome do servidor
    
          Dim mSmtpClient As New SmtpClient(servidorSMTP)
    
          ' Envia solicitação de confirmação de recebimento do email.
    
          mMailMessage.Headers.Add("Disposition-Notification-To", "<" & remetente & ">")
    
          ' Autenticação no servidor
    
          mSmtpClient.UseDefaultCredentials = False
    
          mSmtpClient.EnableSsl = True
    
          mSmtpClient.Port = 587
    
          ' ou client.Port = 482; pois as duas portas são de envio do provedor Gmail.
    
          mSmtpClient.Credentials = New System.Net.NetworkCredential(remetente, autenticacao)
    
          ' Envia o email
    
          Button1.Enabled = False
    
          Button1.Text = "Enviando..."
    
          mSmtpClient.Send(mMailMessage)
    
        Catch ex As Exception
    
          Throw New Exception("Erro ao enviar o email.", ex)
    
    
    
        End Try
    
        Button1.Text = "Email Teste"
    
      End Sub
    



    []s.

    Alan. Twitter
    sábado, 13 de março de 2010 00:00