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]Anexos no Outlook Atraves do Docmd.SendObject

    avatar
    Convidado
    Convidado


    [Resolvido]Anexos no Outlook Atraves do Docmd.SendObject Empty Anexos no Outlook Atraves do Docmd.SendObject

    Mensagem  Convidado 2/7/2011, 14:58

    Amigos como anexar documentos no Outlook atraves deste comando..

    Se alguem souber fico grato

    Saudações
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Anexos no Outlook Atraves do Docmd.SendObject Empty Re: [Resolvido]Anexos no Outlook Atraves do Docmd.SendObject

    Mensagem  criquio 2/7/2011, 16:16

    Não sei, eu prefiro o cdo Laughing


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Anexos no Outlook Atraves do Docmd.SendObject Empty Re: [Resolvido]Anexos no Outlook Atraves do Docmd.SendObject

    Mensagem  vieirasoft 2/7/2011, 16:39

    O Criquio tem razão Hary. E ele até tem um exemplo para isso.
    avatar
    Convidado
    Convidado


    [Resolvido]Anexos no Outlook Atraves do Docmd.SendObject Empty Re: [Resolvido]Anexos no Outlook Atraves do Docmd.SendObject

    Mensagem  Convidado 2/7/2011, 17:08

    eu ja utilizo o cdo do Amigo Criquio..
    e que estou teanto um outro jeito aqui..

    Grato

    Consegui um exemplo estou tentando adpatar...

    dando certo, retorno
    avatar
    Convidado
    Convidado


    [Resolvido]Anexos no Outlook Atraves do Docmd.SendObject Empty Re: [Resolvido]Anexos no Outlook Atraves do Docmd.SendObject

    Mensagem  Convidado 2/7/2011, 17:48

    Amigos.. estou usando um módulo do JP que é chamado por esta função

    Call InitializeOutlook
    Set objNewMail = gOLApp.CreateItem(olMailItem)


    Mas esta dando erro no texto em vermelho como variável não definida..

    No exemplo que retirei o código esta funcionando..
    apliquei corretamente no meu sistema..
    mas da esse erro

    Alguem sabe como resolver?

    Grato
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Anexos no Outlook Atraves do Docmd.SendObject Empty Re: [Resolvido]Anexos no Outlook Atraves do Docmd.SendObject

    Mensagem  criquio 2/7/2011, 18:02

    Não tem mais código? Não tem uma variável de nome oMailItem declarada para que possa ser utilizada?


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Convidado
    Convidado


    [Resolvido]Anexos no Outlook Atraves do Docmd.SendObject Empty Re: [Resolvido]Anexos no Outlook Atraves do Docmd.SendObject

    Mensagem  Convidado 2/7/2011, 18:03

    Amigão.. o problema esta aqui...Desabilitei as duas linha e funcionou..

    Porque isso?
    poderia me dar uma breve e clara explicação sobre o uso da comparação e do optionExplict?

    'Option Compare Database
    'Option Explicit
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Anexos no Outlook Atraves do Docmd.SendObject Empty Re: [Resolvido]Anexos no Outlook Atraves do Docmd.SendObject

    Mensagem  criquio 2/7/2011, 18:09

    O Option Explicit é usado para verificar se as variáveis estão devidamente declaradas. Deve ser por isso que não funcionou, devido ao fato, talvez, dessa variável não estar declarada com o Dim.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Convidado
    Convidado


    [Resolvido]Anexos no Outlook Atraves do Docmd.SendObject Empty Re: [Resolvido]Anexos no Outlook Atraves do Docmd.SendObject

    Mensagem  Convidado 2/7/2011, 18:16

    Então foi isso..

    Amigo.. Ja consigo enviar email com anexo.. so uma questão...

    O outLook fica ativo na barra de tarefas do windows.. ate ai tudo certo..

    Mas aparece uma mensagem:

    programa tentando enviar e-mail em seu nome. se isso form inesperado bla bla bla

    COm botões Permitir Negar e cancelar.. um aviso do Outlook

    Como desabilitar?

    Grato
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Anexos no Outlook Atraves do Docmd.SendObject Empty Re: [Resolvido]Anexos no Outlook Atraves do Docmd.SendObject

    Mensagem  vieirasoft 2/7/2011, 18:36

    Não é fácil tirar isso, porque é uma mensagem do Outlook. Procura na net por "Tirar Mensagem de segurança do Outlook". Também podes colocar as Macros no nível baixo.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Anexos no Outlook Atraves do Docmd.SendObject Empty Re: [Resolvido]Anexos no Outlook Atraves do Docmd.SendObject

    Mensagem  criquio 2/7/2011, 18:47

    Tente o seguinte: no OutLook, vá em Ferramentas e Central de Confiabilidade. Na janelinha que abrirá, escolha a opção "Acesso de Programação". Aparecerá a janela de configuração com 3 níveis de segurança. Tente o primeiro, se não surtir o efeito desejado, tente o último.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Convidado
    Convidado


    [Resolvido]Anexos no Outlook Atraves do Docmd.SendObject Empty Re: [Resolvido]Anexos no Outlook Atraves do Docmd.SendObject

    Mensagem  Convidado 2/7/2011, 18:56

    Beleza Criquio.. deixarei ainda o topico aberto pois poderão surgir mais duvidas sobre o mesmo assunto, pois tudo esta relacionado ao aoutlook

    Terminando posto no repositório

    Grato
    avatar
    Convidado
    Convidado


    [Resolvido]Anexos no Outlook Atraves do Docmd.SendObject Empty Re: [Resolvido]Anexos no Outlook Atraves do Docmd.SendObject

    Mensagem  Convidado 2/7/2011, 21:48

    Tópico resolvido

    Exemplo no repositório

    http://maximoaccess.forumeiros.com/t3189-envio-de-e-mail-com-anexos-usando-form-de-envio-atraves-do-access

    Saudações

    Conteúdo patrocinado


    [Resolvido]Anexos no Outlook Atraves do Docmd.SendObject Empty Re: [Resolvido]Anexos no Outlook Atraves do Docmd.SendObject

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 22:35