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 direto do form sem usar Outlook.

    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    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 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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    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 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!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    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 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: 21/11/2024, 11:46