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

3 participantes

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

    avatar
    brunobmfs
    Novato
    Novato

    Respeito às regras : 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 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 : 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 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 13 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 : Respeito às Regras 100%

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

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

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


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    brunobmfs
    Novato
    Novato

    Respeito às regras : 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 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 : 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 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: 26/9/2021, 10:49