CAN¬šÃ€ŠÃ‚'T CREAT OBJECT
Porque é que me aparece este erro quando executo o respectivo comando ?
"ActiveX CanÂÂÂ't Create object"
depois vou ver a linha onde surgiu o erro e foi a seguinte linha:
Set Mail = New clsSendMail
Alguem me dá ai uma ajudinha ??
Tks
MS
"ActiveX CanÂÂÂ't Create object"
depois vou ver a linha onde surgiu o erro e foi a seguinte linha:
Set Mail = New clsSendMail
Alguem me dá ai uma ajudinha ??
Tks
MS
axo q ta faltando o activex no projeto que faz esse comando
daum addfile
daum addfile
GUTO:
E como é que eu sei qual é o projecto que faz esse comando ???
Tks.
E como é que eu sei qual é o projecto que faz esse comando ???
Tks.
pprimeiro irmao qual rotina vc quer executar , mandar email? qual é?
A rotina que eu tenho é esta:
Private Sub cmdExport_Click()
Dim Options As ExportOptions
Screen.MousePointer = vbHourglass
Report.RecordSelectionFormula = "{Propostas.id_da_proposta} = " & FormProposta.Text1.Text
Set Options = Report.ExportOptions
Options.DestinationType = crEDTDiskFile
Options.FormatType = crEFTPortableDocFormat 'Aqui digo que é o formato para PDF. Pode ser outro mas....
'Options.DiskFileName = App.Path & "\proposta " & Format(Now(), "dd-mm-yyyy") & ".pdf" ' assim põe a data na frente
Options.DiskFileName = "c:\Gesint\Propostas" & "\proposta " & FormProposta.Text1.Text & ".pdf"
Options.PDFExportAllPages = True
Report.Export (False) 'Gera o PDF sem prompt do usuário
' Para fazer o que vai ser feito preciso do componente vbSendMail no Projecto
Dim Mail As vbSendMail.clsSendMail 'aqui começam os códigos para envio por e-mail
'Set Mail = New clsSendMail
Set Mail = New clsSendMail
Mail.SMTPHost = "smtp.autoleiria.pt" 'Servidor SMPT
Mail.From = "msilva@autoleiria.pt" 'Meu e-mail como "FROM". AI DE VCS SE USAREM O MEU!!
Mail.FromDisplayName = "El Roger" 'Nome de exibição pro e-mail do FROM
Mail.Recipient = "msilva@autoleiria.pt" 'Destinatário do e-mail
Mail.RecipientDisplayName = "LCSD" 'Nome de exibição do e-mail do destinatário
Mail.Subject = "Teste de Envio" 'Assunto do e-mail
Mail.Attachment = Options.DiskFileName 'Pega o arquivo gerado acima como anexo do e-mail
Mail.Message = "Teste de envio. Se você receber isso, tá funcionando" 'Corpo do e-mail
Mail.Send 'Envia
Screen.MousePointer = vbDefault
End Sub
Private Sub cmdExport_Click()
Dim Options As ExportOptions
Screen.MousePointer = vbHourglass
Report.RecordSelectionFormula = "{Propostas.id_da_proposta} = " & FormProposta.Text1.Text
Set Options = Report.ExportOptions
Options.DestinationType = crEDTDiskFile
Options.FormatType = crEFTPortableDocFormat 'Aqui digo que é o formato para PDF. Pode ser outro mas....
'Options.DiskFileName = App.Path & "\proposta " & Format(Now(), "dd-mm-yyyy") & ".pdf" ' assim põe a data na frente
Options.DiskFileName = "c:\Gesint\Propostas" & "\proposta " & FormProposta.Text1.Text & ".pdf"
Options.PDFExportAllPages = True
Report.Export (False) 'Gera o PDF sem prompt do usuário
' Para fazer o que vai ser feito preciso do componente vbSendMail no Projecto
Dim Mail As vbSendMail.clsSendMail 'aqui começam os códigos para envio por e-mail
'Set Mail = New clsSendMail
Set Mail = New clsSendMail
Mail.SMTPHost = "smtp.autoleiria.pt" 'Servidor SMPT
Mail.From = "msilva@autoleiria.pt" 'Meu e-mail como "FROM". AI DE VCS SE USAREM O MEU!!
Mail.FromDisplayName = "El Roger" 'Nome de exibição pro e-mail do FROM
Mail.Recipient = "msilva@autoleiria.pt" 'Destinatário do e-mail
Mail.RecipientDisplayName = "LCSD" 'Nome de exibição do e-mail do destinatário
Mail.Subject = "Teste de Envio" 'Assunto do e-mail
Mail.Attachment = Options.DiskFileName 'Pega o arquivo gerado acima como anexo do e-mail
Mail.Message = "Teste de envio. Se você receber isso, tá funcionando" 'Corpo do e-mail
Mail.Send 'Envia
Screen.MousePointer = vbDefault
End Sub
porq uma vez deu esse erroi comigo era porq eu tava querendo fazer uma rotina e o avtivex q possiblitava isso nau tava no projeto
entaun é uma ocx? vai em components e axa ela la
axo que é isso aÃ
Tks Guto.
vou confirmar
Tks Guto.
vou confirmar
mas isso deve ser uma ocx especifica ta ligado entaun se vc pegou ela em algum lugar aki no forum ou outro lugar coloque a ocx no system e depois busca pelo components
Guto:
Para começar axo que me faltava registar uma dll, a "vbSendMail.dll"
Já a registei, mas agora dá-me outro erro:
------------------------------------------
Run Error ÂÂÂ'430ÂÂÂ'
Class does not suport Automation or does not suport expected interface
------------------------------------------
NOTA: seu clicar no DEBUG salta-me para a linha:
Set Mail = New clsSendMail
Alguem me diz o que fazer ???
Tks.
Para começar axo que me faltava registar uma dll, a "vbSendMail.dll"
Já a registei, mas agora dá-me outro erro:
------------------------------------------
Run Error ÂÂÂ'430ÂÂÂ'
Class does not suport Automation or does not suport expected interface
------------------------------------------
NOTA: seu clicar no DEBUG salta-me para a linha:
Set Mail = New clsSendMail
Alguem me diz o que fazer ???
Tks.
BOM , O Q ME PARECE é O SEQUINTE
SEU EXE ESTA COM REFERENCIA A UMA DLL E ESTA USANDO UMA + ATUALIZADA
VERIFICA ISSO
SEU EXE ESTA COM REFERENCIA A UMA DLL E ESTA USANDO UMA + ATUALIZADA
VERIFICA ISSO
Tópico encerrado , respostas não são mais permitidas