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]Erro ao Enviar Email no Acess

    avatar
    jones99
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 57
    Registrado : 28/03/2012

    [Resolvido]Erro ao Enviar Email no Acess Empty [Resolvido]Erro ao Enviar Email no Acess

    Mensagem  jones99 23/7/2012, 21:59

    Boa Noite a todos
    Vamos la ver quem pode me ajudar
    Estou com um problema para enviar um relatorio no access por email.
    estou usando uma macro para enviar o relatorio mais quando eu aperto o botao para enviar ele abre o navegador do google cromes.
    Alguem sabe como resolver isso?

    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Erro ao Enviar Email no Acess Empty Enviar Email no Access

    Mensagem  toyebom 24/7/2012, 01:25

    Le o Tópico a baixo, talvez ajude:
    http://maximoaccess.forumeiros.com/t3464-resolvidoemail-via-cdo-e-outlook-express-gravacao-e-anexos

    ou então:

    Abra um novo projeto no Visual Basic.
    No menu Ferramentas, escolha referências e selecione a biblioteca Microsoft CDO 1.21.
    Adicione um objeto CommandButton ao formulário padrão. Aceite o nome padrão, Command1.
    Copie o código a seguir na seção General Declarations do formulário padrão.

    Option Explicit

    Private Sub Command1_Click()
    Dim objSession As Object
    Dim objMessage As Object
    Dim objRecipient As Object

    'Create the Session Object.
    Set objSession = CreateObject("mapi.session")

    'Logon using the session object.
    'Specify a valid profile name if you want to.
    'Avoid the logon dialog box.
    objSession.Logon profileName:="MS Exchange Settings"

    'Add a new message object to the OutBox.
    Set objMessage = objSession.Outbox.Messages.Add

    'Set the properties of the message object.
    objMessage.subject = "This is a test."
    objMessage.Text = "This is the message text."

    'Add a recipient object to the objMessage.Recipients collection.
    Set objRecipient = objMessage.Recipients.Add

    'Set the properties of the recipient object.
    objRecipient.Name = "John Doe" '<---Replace this with a valid
    'display name or e-mail alias
    'Type can be ActMsgTo, mapiTo, or CdoTo for different CDO versions;
    'they all have a constant value of 1.
    objRecipient.Type = mapiTo
    objRecipient.Resolve

    'Send the message.
    objMessage.Send showDialog:=False
    MsgBox "Message sent successfully!"

    'Logoff using the session object.
    objSession.Logoff
    End Sub


    Execute o projeto. Clique em Command1. Você enviou o email Visual Basic.
    avatar
    jones99
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 57
    Registrado : 28/03/2012

    [Resolvido]Erro ao Enviar Email no Acess Empty Re: [Resolvido]Erro ao Enviar Email no Acess

    Mensagem  jones99 24/7/2012, 16:07

    Na verdade eu so queria resolver isso mesmo por que eu não sei por que ele abre o navegador

    Conteúdo patrocinado


    [Resolvido]Erro ao Enviar Email no Acess Empty Re: [Resolvido]Erro ao Enviar Email no Acess

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/5/2024, 16:27