[resolvido] Envio de E-mail (SendObject) Access 2007 X Outlook 2016

Moderador: Avelino Sampaio

Viviane Ribeiro
Mensagens: 8
Registrado em: 29 Jun 2015, 11:35

[resolvido] Envio de E-mail (SendObject) Access 2007 X Outlook 2016

Mensagempor Viviane Ribeiro » 26 Jul 2016, 17:51

Boa tarde pessoal,

Sempre utilizei a função SendObject para enviar e-mail.
Meu sistema está na versão access 2007 e o Microsoft Outlook 2007 ou 2010.
Um cliente instalou o Microsoft Outlook 2016 e a minha função SendObject parou de funcionar.
Está emitindo a mensagem: "O comando ou a ação 'EnviarObjeto' não está disponível agora."
O computador do cliente está com Windows 10 Pro 64 bits e Microsoft Office 2016 32 bits.

Não tenho o Office 2016 para testar e no meu cliente eu utilizo runtime do access 2007, não consigo verificar as referências.
Alguém já passou por esse problema?

Desde já obrigada!!

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Avelino Sampaio
Mensagens: 1886
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Envio de E-mail (SendObject) Access 2007 X Outlook 2016

Mensagempor Avelino Sampaio » 27 Jul 2016, 10:53

Viviane,

não creio que seja problema de referência. O outlook do cliente está configurado com uma conta ? Vc abriu e viu se o outlook está ok ?

Se o outlook estiver configurado, crie um BD exemplo e teste com este código:

Código:
Private Sub btEnviarEmail_Click()
Dim strArquivo As String
Dim strLocal As String
Dim objOut As Object
Dim objmail As Object
Dim objAnexo As Object

Const olMailItem = 0
Const olByValue = 1

Set objOut = CreateObject("Outlook.application")
Set objmail = objOut.CreateItem(olMailItem)

objmail.Subject = "Ordem de Serviços"
objmail.Body = "Segue em Anexo sua Ordem de Serviços Aberta Recentemente"
objmail.To = "teste@teste.com.br

'--------------------------------------------------------
'Mostra o formulário de envio de email
'--------------------------------------------------------
objmail.Display

Set objAnexo = Nothing
Set objmail = Nothing
Set objOut = Nothing

End Sub


Nota: Mantenha o outlook aberto no teste

Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Viviane Ribeiro
Mensagens: 8
Registrado em: 29 Jun 2015, 11:35

Re: Envio de E-mail (SendObject) Access 2007 X Outlook 2016

Mensagempor Viviane Ribeiro » 28 Jul 2016, 17:30

Boa tarde Avelino,

Adaptei minha rotina conforme o exemplo que você me enviou e deu certo.
Muito obrigada!!

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Access x Outlook”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 1 visitante