MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    [Resolvido]Enviar e-mail direto do form sem usar Outlook.

    Cláudio Machado
    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1481
    Registrado : 17/03/2011

    [Resolvido]Enviar e-mail direto do form sem usar Outlook. Empty [Resolvido]Enviar e-mail direto do form sem usar Outlook.

    Mensagem  Cláudio Machado em 26/4/2013, 19:08

    Boa tarde galera.
    Bem tenho este código que peguei com o Avelino e utilizo para enviar e-mail de Pedido de Compras, está funcionando perfeito, só que gostaria de enviar este e-mail direto, sem passar pelo Outlook, será que poderiam me ajudar?
    Saudações.

    Código:


    Dim strArquivo  As String
    Dim strLocal    As String
    Dim objOut      As Object
    Dim objMail    As Object
    Dim objAnexo    As Object
    Const olMailItem = 0
    Const olByValue = 1


    '---------------------------------------------
    'Carregando a coleção do Outlook
    'Similar ao abrir o Outlook
    '---------------------------------------------
    Set objOut = CreateObject("Outlook.application")

    '------------------------------------------------------------
    'Abrindo o formulário de email para inserir os itens de email
    'Similar ao clicar no botão NOVO do Outlook
    '------------------------------------------------------------
    Set objMail = objOut.CreateItem(olMailItem)

    'Passando o E-mail do Fornecedor para o destinatário da mensagem
    '-----------------------------------------------------------------------
    objMail.To = Me.Txt_Fornecedor_Email 'destinatário

    'Passando o Assunto do E-mail para a mensagem
    '---------------------------------------------------------------
    objMail.Subject = "GRUÇAI - PEDIDO Nº " & (Me!Número_Pedido_Gerado) & "." 'destinatário

    '------------------------------------------------------------
    'Abrindo a opção anexo
    'Similar ao clicar no botão ANEXO do Outlook
    '------------------------------------------------------------
    Set objAnexo = objMail.Attachments

    '---------------------------------------------------------------------------------
    'Indico o nome do arquivo pdf e o local que será gravado
    'O local que escolhi para gravar os arquivos de pdf gerados
    'é na pasta enviados, aonde se encontra o aplicativo.
    'Neste exemplo, gero os nomes dos arquivos, aproveitando o número exclusivo
    'do cliente.  Então os arquivos vão ficar com o aspecto: rlt1.pdf, rlt2.pdf, ...
    'É claro que vc poderá gerar o nome que achar mais conveniente.
    '---------------------------------------------------------------------------------
    strArquivo = "GRUÇAI - PEDIDO Nº " & (Me!Número_Pedido_Gerado) & ".pdf"
    strLocal = CurrentProject.path & "\enviados\" & strArquivo

    'Salvando alterações no registro
    If Me.Dirty Then DoCmd.RunCommand acCmdSaveRecord

    '----------------------------------------------------------------------------
    'Abre o relatório filtrado e oculto de acordo com o cliente selecionado.
    '----------------------------------------------------------------------------
    DoCmd.OpenReport "2-PEDIDO_COMPRA_PRODUTOS_GC", acViewPreview, , "Número_Pedido = " & Me!Número_Pedido, acHidden

    '----------------------------------------------------------------------------------------
    'gero o pdf do relatório através do comando outputto.
    'o mecanismo do Access reconhece que o relatório solicitado pelo outputto já está aberto
    'e então o outputto usará o relatório já aberto e filtrado.
    '-----------------------------------------------------------------------------------------
    DoCmd.OutputTo acOutputReport, "2-PEDIDO_COMPRA_PRODUTOS_GC", acFormatPDF, strLocal

    '-------------------------------------------
    'fecha o relatório clientes que está oculto
    '-------------------------------------------
    DoCmd.Close acReport, "2-PEDIDO_COMPRA_PRODUTOS_GC"

    '--------------------------------------------------------
    'adiciona o arquivo pdf no anexo
    '-------------------------------------------------------
    objAnexo.Add strLocal, olByValue, 1

    '-----------------------------------------------------------------
    'Mostra a tela de sáida de email que abrimos
    '-----------------------------------------------------------------
    objMail.Display


    '-------------------------------------------------------
    'Tudo já foi entregue ao outlook, então podemos esvaziar
    'a memoria do computador usada pelas variáveis
    '-------------------------------------------------------
    Set objAnexo = Nothing
    Set objMail = Nothing
    Set objOut = Nothing




    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Enviar e-mail direto do form sem usar Outlook. 90dssg para agradecer a dica que solucionou seu problema.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3491
    Registrado : 04/04/2010

    [Resolvido]Enviar e-mail direto do form sem usar Outlook. Empty Re: [Resolvido]Enviar e-mail direto do form sem usar Outlook.

    Mensagem  Avelino Sampaio em 29/4/2013, 11:36

    Veja este tutorial do meu site, criado pelo amigo Valdino.

    http://www.usandoaccess.com.br/tutoriais/tuto38.asp?id=1#inicio

    Bom estudo!
    Cláudio Machado
    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1481
    Registrado : 17/03/2011

    [Resolvido]Enviar e-mail direto do form sem usar Outlook. Empty Re: [Resolvido]Enviar e-mail direto do form sem usar Outlook.

    Mensagem  Cláudio Machado em 27/11/2013, 12:27

    Desculpe pela demora Avelino, mas passou despercebido este tópico aberto ainda.
    Abraço.Very Happy 


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Enviar e-mail direto do form sem usar Outlook. 90dssg para agradecer a dica que solucionou seu problema.

    Conteúdo patrocinado

    [Resolvido]Enviar e-mail direto do form sem usar Outlook. Empty Re: [Resolvido]Enviar e-mail direto do form sem usar Outlook.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 18/6/2019, 14:05