Boa Noite.
É o seguinte, tenho esse código que está funcionando no sistema que preciso.
Windows 7 SP1 e Windows XP + Windows Live mail.
Agora tem outros 2 que não pegam de jeito nenhum!
Fala que a ação ou comando 'enviar objeto' não está disponível no momento.
Já tentei reinstalar o office, reinstalar o windows live mail, trocar a versão do office, trocar o cliente de e-mails.
Não pega, alguém pode me responder porque ? as máquinas são iguais as outras que pegam...
Obrigado,
Att,
Lucas.
É o seguinte, tenho esse código que está funcionando no sistema que preciso.
- Código:
Private Sub Comando60_Click()
On Error Resume Next
Dim stDocName As String
Dim contact As String
stDocName = "Relatório Consulta"
contact = Me![Consultas].Form![CT_MAIL]
DoCmd.SendObject acReport, stDocName, acFormatPDF, contact
Exit_Comando60_Click:
Exit Sub
Err_Comando60_Click:
Dim erro As String
erro = MsgBox("Esse contato não possui e-mail cadastrado.", vbOKOnly)
Resume Exit_Comando60_Click
End Sub
Windows 7 SP1 e Windows XP + Windows Live mail.
Agora tem outros 2 que não pegam de jeito nenhum!
Fala que a ação ou comando 'enviar objeto' não está disponível no momento.
Já tentei reinstalar o office, reinstalar o windows live mail, trocar a versão do office, trocar o cliente de e-mails.
Não pega, alguém pode me responder porque ? as máquinas são iguais as outras que pegam...
Obrigado,
Att,
Lucas.
Última edição por devill_sfc em 16/8/2013, 02:49, editado 1 vez(es)