VB6 USANDO CDO
Caros alguem pode me ajudar, tenho uma aplicação em VB6 que usava OUTLOOK para enviar Email, mas usando o Win7 não tem mais o Outlook Express, então usando um exemplo de um programa do vbmania, baixei o CDO.DLL, registrei no Win7 e anexei no projeto e estou recebendo o seguinte erro:
[Ô]user define-type not defined[Ô] na linha [Ô]Dim cdoMsg As New CDO.Message[Ô]
Código usado:
Dim cdoMsg As New CDO.Message
With cdoMsg
With .Configuration.Fields
.Item(cdoSendUsingMethod).Value = cdoSendUsingPort
.Item(cdoSMTPUseSSL).Value = True
.Item(cdoSMTPServerPort).Value = 465
.Item(cdoSMTPServer).Value = [Ô]smtp.mymail.com[Ô]
.Item(cdoSendUserName).Value = [Ô]myuser[Ô]
.Item(cdoSendPassword).Value = [Ô]mypw[Ô]
.Item(cdoSMTPAuthenticate).Value = cdoBasic
.Update
End With
.From = From
.To = [Ô][Ô][Ô]Some Guy[Ô][Ô] <someguy@yahoo.com>[Ô]
.Subject = [Ô]Yet some more really spiffy mail for you![Ô]
.TextBody = [Ô]This is some mail I think you[ô]ll want too.[Ô] & vbNewLine _
& [Ô]Be sure to read the attachment, it[ô]s hilarious.[Ô]
.AddAttachment App.Path & [Ô]\attach.txt[Ô]
On Error Resume Next
.Send
End With
If Err.Number <> 0 Then
MsgBox [Ô]CDO error [Ô] & Hex$(Err.Number) & vbNewLine & Err.Description, _
vbOKOnly Or vbExclamation, _
Caption
Else
MsgBox [Ô]Mail sent![Ô], vbOKOnly, Caption
End If
Alguem pode me ajudar
[Ô]user define-type not defined[Ô] na linha [Ô]Dim cdoMsg As New CDO.Message[Ô]
Código usado:
Dim cdoMsg As New CDO.Message
With cdoMsg
With .Configuration.Fields
.Item(cdoSendUsingMethod).Value = cdoSendUsingPort
.Item(cdoSMTPUseSSL).Value = True
.Item(cdoSMTPServerPort).Value = 465
.Item(cdoSMTPServer).Value = [Ô]smtp.mymail.com[Ô]
.Item(cdoSendUserName).Value = [Ô]myuser[Ô]
.Item(cdoSendPassword).Value = [Ô]mypw[Ô]
.Item(cdoSMTPAuthenticate).Value = cdoBasic
.Update
End With
.From = From
.To = [Ô][Ô][Ô]Some Guy[Ô][Ô] <someguy@yahoo.com>[Ô]
.Subject = [Ô]Yet some more really spiffy mail for you![Ô]
.TextBody = [Ô]This is some mail I think you[ô]ll want too.[Ô] & vbNewLine _
& [Ô]Be sure to read the attachment, it[ô]s hilarious.[Ô]
.AddAttachment App.Path & [Ô]\attach.txt[Ô]
On Error Resume Next
.Send
End With
If Err.Number <> 0 Then
MsgBox [Ô]CDO error [Ô] & Hex$(Err.Number) & vbNewLine & Err.Description, _
vbOKOnly Or vbExclamation, _
Caption
Else
MsgBox [Ô]Mail sent![Ô], vbOKOnly, Caption
End If
Alguem pode me ajudar
Use o object browser e verifique se o nome do namespace para essa biblioteca é esse mesmo...
Desculpe... mas meus conhecimentos requer um pouco mais de detalhes... você esta falando em References ou Components no tópico Project?
Simplesmente pressione F2;
Precionei F2 apareceu uma longa lista... mas o CDO não está nela, como faço para inclui-lo?
Essa longa lista, mostra todas as classes, bibliotecas e tudo mais que seu projeto possui referência. Se esta bibliteca está referenciada no seu projeto, com certeza ela está aÃ. Procure pelo nome de algum método especÃfico dessa biblioteca
Quando tento colocar o CDO nas References da o erro em anexo, pode dar uma olhada?
Você está tentando adicionar uma biblioteca como componente...
Desculpe a franqueza, mas seria melhor você entender como tudo isso funciona antes de baixar/instalar DLL que você não conhece e copiar/colar código...
Desculpe a franqueza, mas seria melhor você entender como tudo isso funciona antes de baixar/instalar DLL que você não conhece e copiar/colar código...
Não ela não estava, estou tentando coloca-la, e novidade no projeto.
Então, clique no menu Project/References e adicione a biblioteca.
Mudanças de WIindows... antes de eu entender tudo... necessito enviar um email via VB6 sem o OUTLOOK... me parecia simples.... mesmo assim fico muito grato.
Tópico encerrado , respostas não são mais permitidas