MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Enviar e-mail via Access 2010 x Outlook - Formato Texto HTML

    MZapia
    MZapia
    MZapia
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 41
    Registrado : 10/10/2015
    • Mensagem nº1

    [Resolvido]Enviar e-mail via Access 2010 x Outlook - Formato Texto HTML Empty [Resolvido]Enviar e-mail via Access 2010 x Outlook - Formato Texto HTML

    Mensagem  MZapia 10/10/2015, 22:21

    Boa tarde.

    Prezados amigos,

    Estou desenvolvendo uma maneira de enviar um relatório via e-mail utilizando Outlook, porém a linha abaixo só abre como e-mail formato texto, ou seja, não aparece a assinatura padrão (logo da empresa e o nome do usuário).

    Dim vAssunto As String
    Dim vCorpo As String

    vAssunto = "[Proposta Técnica/ Comercial] - " & Me.NumCotacao & "-" & Me.Revisao

    vCorpo = "Prezado " & Me.cboContato & "," & vbCrLf & vbCrLf
    vCorpo = vCorpo & "Conforme solicitado, segue em anexo nossa PROPOSTA TÉCNICA/ COMERCIAL " & NumCotacao & "-" & Revisao & ", referente a " & Referencia & "." & vbCrLf
    vCorpo = vCorpo & "Ficamos no aguardo de sua manifestação favorável e dispostos a quaisquer esclarecimentos." & vbCrLf & vbCrLf
    vCorpo = vCorpo & "Pedimos a gentileza de confirmar o recebimento da proposta." & vbCrLf & vbCrLf
    vCorpo = vCorpo & "Atenciosamente," & vbCrLf



    DoCmd.SendObject acReport, "Proposta Comercial", "PDFFormat(*.pdf)", "EmailRemetente", "EmailDestinatario", "", vAssunto, vCorpo, True, ""

    Como posso proceder?

    Atenciosamente,
    Marcelo Zapia
    • Ir para o topo
    MZapia
    MZapia
    MZapia
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 41
    Registrado : 10/10/2015
    • Mensagem nº2

    [Resolvido]Enviar e-mail via Access 2010 x Outlook - Formato Texto HTML Empty Re: [Resolvido]Enviar e-mail via Access 2010 x Outlook - Formato Texto HTML

    Mensagem  MZapia 12/10/2015, 13:19

    Bom dia,

    Alguém poderia me ajudar?

    Atenciosamente,
    Marcelo Zapia
    • Ir para o topo
    JPaulo
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009
    • Mensagem nº3

    [Resolvido]Enviar e-mail via Access 2010 x Outlook - Formato Texto HTML Empty Re: [Resolvido]Enviar e-mail via Access 2010 x Outlook - Formato Texto HTML

    Mensagem  JPaulo 12/10/2015, 14:31

    O HTML não funciona com o comando "DoCmd.SendObject", terá de ser assim;

    Faça o teste e retorne;

    Código:
    Private Sub SeuBotãoEnviaEmail_Click()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim corpo As String
    Dim strReportName$
    Dim AttachmentPath$
    Dim subject$
    Dim email_to$
    Dim email_cc$

    strReportName = "Proposta Comercial"
    DoCmd.OutputTo acOutputReport, strReportName, acFormatPDF, CurrentProject.Path & _
                   "\" & strReportName & ".pdf", False

    subject = "[Proposta Técnica/ Comercial] - " & Me.NumCotacao & "-" & Me.Revisao
    AttachmentPath = CurrentProject.Path & "\" & strReportName & ".pdf"
    email_to = EmailRemetente
    email_cc = EmailDestinatario

        Set OutApp = CreateObject("Outlook.Application")
        Set OutMail = OutApp.CreateItem(0)

                corpo = "<html><p><span style=""font-family: Calibri; font-size: 11pt;"">Prezado " & Me.cboContato & ",""" _
                & "<p>Conforme solicitado, segue em anexo nossa PROPOSTA TÉCNICA/ COMERCIAL " & NumCotacao & "-" & Revisao & ", referente a " & Referencia & ".""" _
                & vbCrLf & vbCrLf _
                & "<p>Ficamos no aguardo de sua manifestação favorável e dispostos a quaisquer esclarecimentos. " _
                & "<p>Pedimos a gentileza de confirmar o recebimento da proposta. " _
                & "<p>Atenciosamente, </span></html>"


        With OutMail
            .Display
            .To = email_to
            .CC = email_cc
            .BCC = ""
            .subject = subject
            .Attachments.Add (AttachmentPath)
            .HTMLBody = corpo & "<br>" & .HTMLBody
            '.Send
        End With


        On Error GoTo 0
        Set OutMail = Nothing
        Set OutApp = Nothing
    End Sub


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Enviar e-mail via Access 2010 x Outlook - Formato Texto HTML Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Enviar e-mail via Access 2010 x Outlook - Formato Texto HTML Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Enviar e-mail via Access 2010 x Outlook - Formato Texto HTML Folder_announce_new Instruções SQL como utilizar...
    • Ir para o topo
    MZapia
    MZapia
    MZapia
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 41
    Registrado : 10/10/2015
    • Mensagem nº4

    [Resolvido]Enviar e-mail via Access 2010 x Outlook - Formato Texto HTML Empty Re: [Resolvido]Enviar e-mail via Access 2010 x Outlook - Formato Texto HTML

    Mensagem  MZapia 13/10/2015, 01:06

    JPaulo, boa noite.

    Deu certo...muito obrigado pelo esclarecimento e auxílio.

    Uma outra pergunta (de leigo): Para negritar alguns campos em HTML utilizo , como não tenho muita afinidade com HTML, vc utilizou algum editor específico e dps abriu o código em HTML?

    Desculpe-me perguntar é que como irie aplicar o mesmo processo para outros trabalhos os textos serão modificados e formatados...

    Grato pelo auxílio.

    Abraço.
    Marcelo Zapia
    • Ir para o topo
    JPaulo
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009
    • Mensagem nº5

    [Resolvido]Enviar e-mail via Access 2010 x Outlook - Formato Texto HTML Empty Re: [Resolvido]Enviar e-mail via Access 2010 x Outlook - Formato Texto HTML

    Mensagem  JPaulo 13/10/2015, 18:02

    Ola,

    Negativo, não usei qualquer aplicativo extra, foi digitado mesmo.
    Os comandos html, você pode obter aqui por exemplo;

    http://www.w3schools.com/html/


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Enviar e-mail via Access 2010 x Outlook - Formato Texto HTML Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Enviar e-mail via Access 2010 x Outlook - Formato Texto HTML Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Enviar e-mail via Access 2010 x Outlook - Formato Texto HTML Folder_announce_new Instruções SQL como utilizar...
    • Ir para o topo
    MZapia
    MZapia
    MZapia
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 41
    Registrado : 10/10/2015
    • Mensagem nº6

    [Resolvido]Enviar e-mail via Access 2010 x Outlook - Formato Texto HTML Empty Re: [Resolvido]Enviar e-mail via Access 2010 x Outlook - Formato Texto HTML

    Mensagem  MZapia 13/10/2015, 19:21

    JPaulo, boa tarde.

    Valeu...
    • Ir para o topo
    JPaulo
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009
    • Mensagem nº7

    [Resolvido]Enviar e-mail via Access 2010 x Outlook - Formato Texto HTML Empty Re: [Resolvido]Enviar e-mail via Access 2010 x Outlook - Formato Texto HTML

    Mensagem  JPaulo 15/10/2015, 14:56

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Enviar e-mail via Access 2010 x Outlook - Formato Texto HTML Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Enviar e-mail via Access 2010 x Outlook - Formato Texto HTML Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Enviar e-mail via Access 2010 x Outlook - Formato Texto HTML Folder_announce_new Instruções SQL como utilizar...
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº8

    [Resolvido]Enviar e-mail via Access 2010 x Outlook - Formato Texto HTML Empty Re: [Resolvido]Enviar e-mail via Access 2010 x Outlook - Formato Texto HTML

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 21/11/2024, 09:04