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


4 participantes

    [Resolvido]DoCmd.SendObject acSendReport,

    avatar
    caguzenski
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 29/10/2012

    [Resolvido]DoCmd.SendObject acSendReport, Empty [Resolvido]DoCmd.SendObject acSendReport,

    Mensagem  caguzenski 18/12/2012, 15:20

    Senhores(as),

    bom dia,

    troquei a versão do access97 para 2003, estou com problema no comando"DoCmd.SendObject acSendReport, "
    - nas referências estou usando:
    microsoft DAO3.6 e MA Data objects 2.5library, tbém não sei si é isto o problema, uso o mozila thunderbird, antes funcionava a 3 anos, preciso transmitir e-mails...

    grato Wink
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]DoCmd.SendObject acSendReport, Empty Re: [Resolvido]DoCmd.SendObject acSendReport,

    Mensagem  JPaulo 19/12/2012, 09:18

    Não tem qualquer problema para o 2003.

    Teste com a linha completa e diga-nos qual o erro que apresenta;

    DoCmd.SendObject acSendReport, "NomeDoSeuRelatorio", acFormatRTF, "teste@gmail.com", , , "Envio de Relatorio", "Este é um Relatorio do Access 2003"





    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]DoCmd.SendObject acSendReport, Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]DoCmd.SendObject acSendReport, Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]DoCmd.SendObject acSendReport, Folder_announce_new Instruções SQL como utilizar...
    avatar
    caguzenski
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 29/10/2012

    [Resolvido]DoCmd.SendObject acSendReport, Empty Re: [Resolvido]DoCmd.SendObject acSendReport,

    Mensagem  caguzenski 19/12/2012, 12:02

    JPaulo, olá,
    estou usando este comando que tu cita-se: DoCmd.SendObject acSendReport, "Rel_Laboratorio Laudo EMail UBSIII", acFormatRTF, "tbsantoalfredo@sms.prefpoa.com.br", "", "", "HSP - Laudos", "* Relatorio em Referencia anexo * utilize o Word ou BrOffice - p/visualizar ", True, " "

    qdo converti para o access03 que parou diz que SendObject acSendReport não esta disponivel....help Razz
    avatar
    caguzenski
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 29/10/2012

    [Resolvido]DoCmd.SendObject acSendReport, Empty Re: [Resolvido]DoCmd.SendObject acSendReport,

    Mensagem  caguzenski 19/12/2012, 14:55

    grato pela atenção, problema resolvido no mozila...

    como faço para sinalizar término... drunken
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]DoCmd.SendObject acSendReport, Empty Re: [Resolvido]DoCmd.SendObject acSendReport,

    Mensagem  JPaulo 19/12/2012, 14:59

    Amigão, resolveu como ?

    Mudou de browser ?

    Ainda outro promenor, se você cancelar o mail vai devolver o erro 2501, para isso terá de tratá-lo da seguinte forma;


    Private Sub SeuBotao_Click()
    On Error GoTo 1

    DoCmd.SendObject acSendReport, "Rel_Laboratorio Laudo EMail UBSIII", acFormatRTF, "tbsantoalfredo@sms.prefpoa.com.br", "", "", "HSP - Laudos", "* Relatorio em Referencia anexo * utilize o Word ou BrOffice - p/visualizar ", True, " "

    1:
    If Err.Number = 2501 Then
    Exit Sub
    Else

    MsgBox Err.Description
    Exit Sub
    End If
    End Sub




    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]DoCmd.SendObject acSendReport, Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]DoCmd.SendObject acSendReport, Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]DoCmd.SendObject acSendReport, Folder_announce_new Instruções SQL como utilizar...
    avatar
    caguzenski
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 29/10/2012

    [Resolvido]DoCmd.SendObject acSendReport, Empty Re: [Resolvido]DoCmd.SendObject acSendReport,

    Mensagem  caguzenski 21/12/2012, 13:36

    bom dia, JPaulo,
    o problema era na configuração do Mozila Thunderbird, mais essa última dica vou utilizar.

    como faço para dar como encerrado este assunto...

    grato...bom natal...

    henrique73 gosta desta mensagem

    linx1010
    linx1010
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 105
    Registrado : 03/10/2011

    [Resolvido]DoCmd.SendObject acSendReport, Empty Re: [Resolvido]DoCmd.SendObject acSendReport,

    Mensagem  linx1010 6/2/2014, 12:16

    E qual era o problema no ThunderBird???? Neutral 


    .................................................................................
    Leio playboy pelo mesmo motivo que assisto national geographic, para poder ver lugares que sei que nunca irei visitar.
    avatar
    luizbtadeu
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 09/12/2015

    [Resolvido]DoCmd.SendObject acSendReport, Empty Re: [Resolvido]DoCmd.SendObject acSendReport,

    Mensagem  luizbtadeu 28/12/2015, 14:31

    tentando usar esse comendo para enviar um email
    porem ele pede senha e da a mensagem abaixo

    ---------------------------
    Microsoft Outlook
    ---------------------------
    No Microsoft Outlook profiles have been created. In Microsoft Windows, click the Start button,
    and then click Control Panel. Click User Accounts, and then click Mail. Click Show Profiles, and then click Add.
    ---------------------------
    OK
    ---------------------------
    The password is invalid; the message wasn't sent.



     DoCmd.SendObject acSendTable, "Tabemail", acFormatRTF, "xxxxxxxxxxxx@gmail.com", , , "Envio de Relatorio", "Relatorio do Access "

     Não tenho relatorio para enviar é apenas uma mensagen  =======  por esta razão tentei usar uma tabela.....

    pode ajudar???


    Obrigado
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]DoCmd.SendObject acSendReport, Empty Re: [Resolvido]DoCmd.SendObject acSendReport,

    Mensagem  JPaulo 28/12/2015, 14:50

    Esse comando só funciona com Outlook instalado.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]DoCmd.SendObject acSendReport, Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]DoCmd.SendObject acSendReport, Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]DoCmd.SendObject acSendReport, Folder_announce_new Instruções SQL como utilizar...
    avatar
    luizbtadeu
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 09/12/2015

    [Resolvido]DoCmd.SendObject acSendReport, Empty Re: [Resolvido]DoCmd.SendObject acSendReport,

    Mensagem  luizbtadeu 28/12/2015, 14:56

    Obrigado Paulo,

    Vc tem alguma rotina criada em access 2010
    para envio de email?

    Obrigado.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]DoCmd.SendObject acSendReport, Empty Re: [Resolvido]DoCmd.SendObject acSendReport,

    Mensagem  JPaulo 28/12/2015, 15:13

    Dê uma pesquisada por CDO.

    CDO envia email sem Outlook.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]DoCmd.SendObject acSendReport, Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]DoCmd.SendObject acSendReport, Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]DoCmd.SendObject acSendReport, Folder_announce_new Instruções SQL como utilizar...
    avatar
    luizbtadeu
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 09/12/2015

    [Resolvido]DoCmd.SendObject acSendReport, Empty Re: [Resolvido]DoCmd.SendObject acSendReport,

    Mensagem  luizbtadeu 29/12/2015, 14:40

    Paulo de quase tudo certo.
    Usei o DoCmd.SendObject , ,

    só preciso tirar a permissão


    =========================================
    Um programa está tentando enviar automaticamente um email em seu nome.
    Deseja permitir isso?
    Se isso for inesperado, talvez seja um virús e você deve escolher "Não"
    =========================================
    Daí eu tenho que ficar clicando em "Sim" pra cada um dos destinatários.
    Como eu faço pra desabilitar esta mensagem Via código.

    Fia uma boa pesquisa e nao encontrei uma solução, a não configurar o proprio OutLook.
    Isso não é viaivel.


    Obrigado...




    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]DoCmd.SendObject acSendReport, Empty Re: [Resolvido]DoCmd.SendObject acSendReport,

    Mensagem  JPaulo 29/12/2015, 14:43

    Então você está usando o Outlook, certo ?

    E deve estar a usar uma versão do Office anterior ao 2007, certo ?


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]DoCmd.SendObject acSendReport, Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]DoCmd.SendObject acSendReport, Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]DoCmd.SendObject acSendReport, Folder_announce_new Instruções SQL como utilizar...
    avatar
    luizbtadeu
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 09/12/2015

    [Resolvido]DoCmd.SendObject acSendReport, Empty Re: [Resolvido]DoCmd.SendObject acSendReport,

    Mensagem  luizbtadeu 29/12/2015, 14:59

    Sim Paulo,

    Mas a versão 2010.
    toda hora que se envia um email aparece essa caixa de confirmação.


    Obrigado
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]DoCmd.SendObject acSendReport, Empty Re: [Resolvido]DoCmd.SendObject acSendReport,

    Mensagem  JPaulo 29/12/2015, 15:08

    Uso este tipo e ligação com o Outlook 2010 e funfa sem problemas;

    http://dl.dropboxusercontent.com/u/771097/MandaMail_Sem_Seguranca.zip

    Veja se serve.



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]DoCmd.SendObject acSendReport, Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]DoCmd.SendObject acSendReport, Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]DoCmd.SendObject acSendReport, Folder_announce_new Instruções SQL como utilizar...
    avatar
    luizbtadeu
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 09/12/2015

    [Resolvido]DoCmd.SendObject acSendReport, Empty Re: [Resolvido]DoCmd.SendObject acSendReport,

    Mensagem  luizbtadeu 29/12/2015, 16:40

    Paulo obrigado,  mas, não funcionou.

    vou descobrir um  jeito de  tirar essa validação  do outlook
    no envio do email..


    Obrigado
    Anexos
    [Resolvido]DoCmd.SendObject acSendReport, AttachmentDoc1.docx
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.3 Mb) Baixado 10 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]DoCmd.SendObject acSendReport, Empty Re: [Resolvido]DoCmd.SendObject acSendReport,

    Mensagem  JPaulo 29/12/2015, 16:57

    Eu não sei porque é que o seu Outlook está a fazer isso, sendo 2010.

    Existe um programa auxiliar que se usava dantes, que tem o nome de "Click Yes".

    http://www.contextmagic.com/express-clickyes/pro-version.htm


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]DoCmd.SendObject acSendReport, Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]DoCmd.SendObject acSendReport, Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]DoCmd.SendObject acSendReport, Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


    [Resolvido]DoCmd.SendObject acSendReport, Empty Re: [Resolvido]DoCmd.SendObject acSendReport,

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 9/5/2024, 08:01