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

    Macro de Envio por E-mail para Areas Tecnicas

    avatar
    Maximushost
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1
    Registrado : 05/04/2013

    Macro de Envio por E-mail para Areas Tecnicas Empty Macro de Envio por E-mail para Areas Tecnicas

    Mensagem  Maximushost 5/4/2013, 20:53

    Boa noite a todos,

    Sou iniciante na área do access e vba, no entanto estou a trabalhar para um projeto no meu local de trabalho e preciso imenso da v/ajuda. Já li vários tópicos mas confesso que é difícil para mim interpretar o pretendido e tentar aplicar pois não entendo o código da programação.

    Passo a descrever o pretendido:

    Todos os dias o pessoal passa a vida a enviar e-mail via outlook para as Áreas técnicas mas por vezes falha informação de extrema necessidade e acontece aquele jogo "vai e-mail, vem e-mail, vai novamente, e volta novamente".
    Assim pretendo com esta base de dados que os colaboradores introduzam os dados no formulário de registo e quando cliquem no botão ele abra uma mensagem nova do outlook e que corpo da mensagem esteja preenchido com esses dados e simultaneamente guarde o registo na tabela para uma futura consulta!

    Tecnicamente no formulário tenho os vários campos, mas para o envio apenas necessito dos seguintes:

    Assunto:
    Cliente:
    Parceiro:
    NIF:
    Corretor:
    Descrição do negocio:
    Anexo: <-- (esse anexo é o e-mail que cliente nos remete com o seu pedido e que é por nós guardado na Base de dados)


    Queria assim que me ajudassem a que Assunto = Assunto no outlook / Cliente; Parceiro; NIF; Corretor; Descrição do negocio = Corpo da mensagem do outlook/ Anexo = Anexo do outlook. Os restantes campos do e-mail não necessita de ser programado com remetentes nem destinatários pois quero que isso fique ao critério de cada um.

    Muito Obrigado.



    avatar
    delogo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 06/10/2013

    Macro de Envio por E-mail para Areas Tecnicas Empty enviando Email via VBA

    Mensagem  delogo 6/10/2013, 01:08

    Ola,
    veja o codigo abaixo e faca adaptacoes a sua necessidade.

    -----------------------------------------------------------------------------
    Dim gOLApp As Object
    Dim gOLNameSpace As Object

    Function InitializeOutlook() As Boolean
      On Error GoTo Init_Err
       Set gOLApp = CreateObject("Outlook.Application")
       Set gOLNameSpace = gOLApp.GetNamespace("MAPI")
    Init_Bye:
       InitializeOutlook = True
       Exit Function
    Init_Err:
       InitializeOutlook = False
       Resume Init_Bye
    End Function

    ----------------------------------------------------------------
    'AQUI VOCE PERSONALIZA SUAS VARIAVEIS E SEGUE O FLUXO DA LOGICA.

    Sub Enviaemail(Regional, Destinatario)

       Dim txtDestinatario, txtAssunto, txtMensagem As String
       Dim CAMINHO, ARQPL, ARQCL, ARQPF, ARQPJ, ARQTT As String
       Dim Assin1, Assin2, Assin3, Assin4, Assintxt As String
           
       ' Pega o caminho da assinatura do e-mail
       Assin1 = "Guilherme ......"
       Assin2 = "cargo x y z"
       Assin3 = "local x y z"
       Assin4 = "Tel.: xx.xxx.xxxxxx"

       ' Seleciona ABA configurações : BDADOS e pega o caminho dos arquivos
       Sheets("BDADOS").Select
       CAMINHO = Range("I5")
       ' Prepara Assunto e corpo mensagem
       txtAssunto = " assunto x y z"
       txtMensagem = "Segue em anexo arquivos x y z"
       Assintxt = " " & vbCrLf & _
                   "Bom dia, " & vbCrLf & _
                   " " & vbCrLf & _
                   txtMensagem & vbCrLf & _
                   " " & vbCrLf & _
                   " " & vbCrLf & _
                   Assin1 & vbCrLf & _
                   Assin2 & vbCrLf & _
                   Assin3 & vbCrLf & _
                   Assin4 & vbCrLf
       'Envia o arquivo
       txtDestinatario = Destinatario
       ARQPL = CAMINHO & nome do arquivo      
       Dim objNewMail As Object
       InitializeOutlook
       Set objNewMail = gOLApp.CreateItem(olMailItem)
       With objNewMail
            .Subject = Regional & txtAssunto
            .Body = Assintxt
            .Attachments.Add ARQPL, 1, Len(.Body) + 1
            .TO = txtDestinatario
            .Display 'ou .Send
    End With
       Sheets("MENU").Select
       Range("A1").Select
       
    End Sub

      Data/hora atual: 26/1/2022, 20:23