MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Combobox com múltipla seleção não envia por e-mail

    avatar
    brunobmfs
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 31/10/2020

    Combobox com múltipla seleção não envia por e-mail Empty Combobox com múltipla seleção não envia por e-mail

    Mensagem  brunobmfs em 1/11/2020, 18:46

    Boa tarde, estou tentando com o combobox modo multipla seleção  e no campo tem os e-mails, porém o código não esta reconhecendo o e-mails selecionados.
    me ajudem, nome da combobox é Email3.

    segue o código abaixo que adicionei no botão.

    Código:
    Private Sub btnAdiciona_Click()
    'On Error GoTo ErrorHandler

    Dim prazo As Date
    Dim Entrada As Date
    [Data da Falha].SetFocus
    Entrada = CDate([Data da Falha].Text)
    prazo = DateAdd("d", 30, Entrada)
    [Prazo Previsto].SetFocus
    [Prazo Previsto].Text = CDate(prazo)

    Set appOutlook = CreateObject("Outlook.Application")
    Set MailOutLook = appOutlook.CreateItem(olMailItem)
    With MailOutLook
    .To = ("brunobmfs29@gmail.com")
    .CC = (Email3 + ";")

    .Subject = ("Novo Registro de Falha BPA Torque")
    .body = ("Novo registro de falha incluído no Banco de Dados." & vbCrLf & "FIFO Falha:" + Str(Código) + "" & vbCrLf & "Solicitante: " + Solicitante + "" & vbCrLf & "DPU: " + DPU + "" & vbCrLf & "Causa e Efeito: " + Causa_e_Efeito + "" & vbCrLf & "Posto: " + Posto + "" & vbCrLf & "Fz/Np: " + FZ + "" & vbCrLf & "Centro de Custo: " + Centro_de_Custo + "" & vbCrLf & "Responsável QM: " + Responsável_1 + "" & vbCrLf & "Responsável QS: " + Responsável_2 + "" & vbCrLf & "Origem da Falha: " + Origem_da_Falha + "" & vbCrLf & "Descrição do defeito: " + Descrição_do_Defeito + "" & vbCrLf & "Ações: " + Ações + "" & vbCrLf & "Data da Falha: " + Data_da_Falha + "" & vbCrLf & "Prazo previsto: " + Str(Prazo_Previsto))


    .Display
    End With

    Desde já, Obrigado!
    avatar
    brunobmfs
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 31/10/2020

    Combobox com múltipla seleção não envia por e-mail Empty anexo o Banco de Dados

    Mensagem  brunobmfs em 1/11/2020, 20:18

    Seguem o anexo do BD para melhor entendimento!

    Obrigado!
    Anexos
    Combobox com múltipla seleção não envia por e-mail Attachmentcombmulti2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.3 Mb) Baixado 12 vez(es)


    Última edição por brunobmfs em 2/11/2020, 11:59, editado 1 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7783
    Registrado : 05/11/2009

    Combobox com múltipla seleção não envia por e-mail Empty Re: Combobox com múltipla seleção não envia por e-mail

    Mensagem  Alexandre Neves em 2/11/2020, 09:50

    Bom dia e bem-vindo ao fórum
    Em vez de
    (Email3 + ";")
    utilize
    Email3.Column(1)


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    brunobmfs
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 31/10/2020

    Combobox com múltipla seleção não envia por e-mail Empty Re: Combobox com múltipla seleção não envia por e-mail

    Mensagem  brunobmfs em 2/11/2020, 12:08

    Bom Dia, Alexandre!
    Muito obrigado, muito top este fórum, estava procurando se já tinha esse tópico que publiquei e não achei, mas achei cara tópico que ira me ajudar e muito, espero ajudar vcs também com o tempo !

    Então,
    Acabei de fazer e testar essa alteração e não deu certo!
    Continua dando erro nesta linha **** .CC = (Email3.Column(1)) **** ou **** .CC = (Email3 + ";") ****
    que é justamente a combobox com multipla seleção.

    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7783
    Registrado : 05/11/2009

    Combobox com múltipla seleção não envia por e-mail Empty Re: Combobox com múltipla seleção não envia por e-mail

    Mensagem  Alexandre Neves em 2/11/2020, 15:39

    Só reparei agora que se trata de campo de valores múltiplos
    Talvez não dê. Pode alterar para CaixaDeListagem que dá para o que pretende


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    brunobmfs
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 31/10/2020

    Combobox com múltipla seleção não envia por e-mail Empty Re: Combobox com múltipla seleção não envia por e-mail

    Mensagem  brunobmfs em 3/11/2020, 00:05

    Putz! Sério?
    Não tem nenhuma forma de ser feito com a caixa de combinação no modo múltipla seleção?
    Precisaria fazer nesse modo, combox multipla seleçao... com caixa de listagem funcionaria pra mim! :'(


    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às Regras 100%

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

    Combobox com múltipla seleção não envia por e-mail Empty Re: Combobox com múltipla seleção não envia por e-mail

    Mensagem  Avelino Sampaio em 3/11/2020, 08:30

    Olá!

    Acrescente a seguinte função no VBA do seu formulário:

    Private Function fncCapturaLista(id As Long) As String
    Dim rs As Recordset
    Dim frs As Recordset
    Dim seq$

    Set rs = CurrentDb.OpenRecordset("SELECT email3 FROM tb_torque WHERE código = " & id & ";")
    Set frs = rs!Email3.Value

    Do While Not frs.EOF
       seq = seq & frs!Value.Value & ";"
       frs.MoveNext
    Loop
    fncCapturaLista = seq
    Set rs = Nothing
    Set frs = Nothing
    End Function


    E na sua função acrescente as partes em vermelho:

    Private Sub btnAdiciona_Click()
    'On Error GoTo ErrorHandler

    Dim prazo As Date
    Dim Entrada As Date
    Dim strLista$

    DoCmd.RunCommand acCmdSaveRecord
    strLista = fncCapturaLista(Me!Código)
    If strLista = "" Then
       MsgBox "Selecione os email's ...", vbInformation, "Aviso"
       Exit Sub
    End If


    [Data da Falha].SetFocus
    Entrada = CDate([Data da Falha].Text)
    prazo = DateAdd("d", 30, Entrada)
    [Prazo Previsto].SetFocus
    [Prazo Previsto].Text = CDate(prazo)

    Set appOutlook = CreateObject("Outlook.Application")
    Set MailOutLook = appOutlook.CreateItem(olMailItem)
    With MailOutLook
    .To = ("brunobmfs29@gmail.com")
    .CC = strLista
    ...
    ...


    Sucesso!


    .................................................................................
    Quer aprender a montar ribbons ?  
    Clique AQUI e conheça o meu aplicativo.
    avatar
    brunobmfs
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 31/10/2020

    Combobox com múltipla seleção não envia por e-mail Empty Re: Combobox com múltipla seleção não envia por e-mail

    Mensagem  brunobmfs em 4/11/2020, 03:14

    Fala Avelino,

    Acabei de testar o código que mandou funcionou ... deu certo! MONSTROOOOOO, MESTRE.... Muito obrigado

    *** Do While Not frs.EOF *** eu só não entendi muito bem esta linha que você colocou o EOF, poderia me explicar?

    avatar
    brunobmfs
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 31/10/2020

    Combobox com múltipla seleção não envia por e-mail Empty Re: Combobox com múltipla seleção não envia por e-mail

    Mensagem  brunobmfs em 4/11/2020, 03:17

    Só compartilhando com o restante da Galera do Fórum, o meu projeto estou fazer esse banco de Dados e alimentar o Power BI com os dados do Access,
    e com essa função funcionando do access a combobox modo multipla seleção, encontrei outro problema, O Power BI não reconhece essa coluna.. vou ver agora oq eu faço...

      Data/hora atual: 4/12/2020, 04:54