ENVIAR EMAIL COM ANEXO USANDO GMAIL

 Tópico anterior Próximo tópico Novo tópico

ENVIAR EMAIL COM ANEXO USANDO GMAIL

C#

 Compartilhe  Compartilhe  Compartilhe
#484320 - 03/09/2018 10:24:25

BETOPMJB
JABORANDI
Cadast. em:Dezembro/2003


alguém teria o exemplo para me passar por favor, obrigado.



#484322 - 03/09/2018 10:59:56

CLEVERTON
SERRINHA
Cadast. em:Dezembro/2003


Membro da equipe
                using (MailMessage newMail = new MailMessage())
                {
                    newMail.SubjectEncoding = System.Text.Encoding.UTF8;
                    newMail.Subject = "Assunto do email";
                    newMail.IsBodyHtml = true;
                    newMail.Body = "Texto do corpo do email";
                    newMail.From = new MailAddress("CONTATO@SEU_DOMINIO.com.br", "NOME DO REMETENTE", Encoding.UTF8);

                    newMail.Attachments.Add(new Attachment(fileNameXML, "application/xml"));
                    newMail.Attachments.Add(new Attachment(fileNamePDF, "application/pdf"));
                    newMail.To.Add("emailDestinatario");

                    NetworkCredential _Credentials = new NetworkCredential("contato@SEU_DOMINIO.com.br", "SUA_SENHA");
                    SmtpClient SmtpSender = new SmtpClient();
                    SmtpSender.EnableSsl = true;
                    SmtpSender.Port = 587;
                    SmtpSender.Host = "smtp.SEU_DOMINIO.com.br";
                    SmtpSender.UseDefaultCredentials = true;
                    SmtpSender.Credentials = _Credentials;
                    SmtpSender.Send(newMail);
                }




#484401 - 08/09/2018 22:24:27

AMORIM
PALMAS/TOCANTINS
Cadast. em:Agosto/2015


der uma olhada neste em vb.net funcionar perfeitamente    
Private Sub EnviodeEmail()
        Dim smsg As New MailMessage
        Dim blnRetorno As Boolean = False
        Dim NomeRemetente As String = txtParEmailNomeRemetente.Text
        Dim EmailRemetente As String = txtParEmailRemetente.Text
        Dim Senha As String = txtParEmailSenha.Text
        Dim SMTP As String = cboParEmailSMTP.Text
        Try
            smsg.From = New MailAddress(NomeRemetente & "<" & EmailRemetente & ">") ' remetente
            smsg.To.Add(txtDestinatarioIndividual.Text) 'Destinatário
            smsg.Priority = MailPriority.High
            ConteudoMensagem = TxtMensagem.Text
            ConteudoMensagem = Replace(ConteudoMensagem, Chr(13), "<br />")
            smsg.Subject = txtAssunto.Text
            smsg.BodyEncoding = System.Text.Encoding.GetEncoding("ISO-8859-1")
            Dim htmlView As AlternateView = AlternateView.CreateAlternateViewFromString("" + ConteudoMensagem + "", Nothing, "text/html")
            smsg.AlternateViews.Add(htmlView)
            If CheckAnexo.Checked = True Then
                smsg.Attachments.Add(New Attachment(TxtArquivos.Text)) 'Adiciona o anexo a enviar
            End If
            Dim Servidor As New SmtpClient
            Servidor.Credentials = New System.Net.NetworkCredential(EmailRemetente, Senha)
            Servidor.EnableSsl = True
            Servidor.Port = txtParEmailPorta.Text
            Servidor.Host = SMTP
            Servidor.Send(smsg)
            smsg.Attachments.Clear()
            blnRetorno = True
            If blnRetorno = True Then
                Enviando.Text = "Email enviado com sucesso"
            End If
            If Enviando.Text = "Email enviado com sucesso" Then
                BtnEnviar.ForeColor = Color.Black
                Enviando.ForeColor = Color.Black
                txtDestinatarioIndividual.Text = ""
                txtAssunto.Text = ""
                TxtMensagem.Text = ""
                TxtArquivos.Text = ""
                CheckAnexo.Checked = False
                txtParEmailNomeRemetente.Text = ""
                txtParEmailRemetente.Text = ""
                txtParEmailSenha.Text = ""
                intCount = 0
                idEnvia.Text = "0"
                Timer1.Stop()
            End If
        Catch ex As Exception
            Enviando.Text = "Não foi possivel enviar o email "
        End Try
    End Sub



 Tópico anterior Próximo tópico Novo tópico


Para responder este tópico o login é requerido
Se você já possui uma conta de usuário por favor faça seu login
Se você não possui uma conta de usuário use a opção Criar usuário