PROBLEMA PARA ENVIAR EMAIL PELO SCHEMA NO WIN10

 Tópico anterior Próximo tópico Novo tópico

PROBLEMA PARA ENVIAR EMAIL PELO SCHEMA NO WIN10

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#479099 - 13/01/2018 21:33:35

ALVAROVB2009
GUARULHOS
Cadast. em:Maio/2009


Última edição em 13/01/2018 21:35:26 por ALVAROVB2009

 Anexos estao visíveis somente para usuários registrados

Pessoal boa noite, estou com um problema no win10 e queria saber se alguém ja pegou isso

Estou enviando o email pelo shema da microsoft, porém quando o anexo chega no destino ele chega todo desconfigurado

O envio de email esta funcionando normalmente nas versões anteriores do win10

Alguém sabe me dizer se tem alguma limitação ou mudança no schema para o win10??


Obs:
Parei o sistema no momento que ele vai incluir o arquivo em anexo e o meu PDF foi exportado perfeitamente pelo crystal

Segue o comando do schema
    UseDefault = False

    Dim Schema
    Dim TituloEmail As String
    Dim EnderecoEmail As String
    
    Schema = "http://schemas.microsoft.com/cdo/configuration/"
    
    'cria o objeto para a configuração do envio de e-mail
    Dim ConfigEmail As CDO.Configuration
    'cria o objeto para o envio de e-mail
    Dim EnviaEmail As CDO.Message
    Set ConfigEmail = New CDO.Configuration
    
    Set RsParametros = New ADODB.Recordset
    RsParametros.Open "Select * from parametros", Db, adOpenKeyset, adLockPessimistic
    ConfigEmail.Fields(Schema & "smtpserver") = RsParametros!servidorsmtp
    ConfigEmail.Fields(Schema & "sendusing") = 2
    ConfigEmail.Fields(Schema & "smtpserverport") = RsParametros!PortaSmtp
    ConfigEmail.Fields(Schema & "smtpconnectiontimeout") = RsParametros!tempoconexao
    ConfigEmail.Fields(Schema & "smtpusessl") = False ' IIf(Val(RsParametros!usessl) = 0, False, True)
    ConfigEmail.Fields(Schema & "smtpauthenticate") = RsParametros!requerAutenticacao
    ConfigEmail.Fields(Schema & "sendusername") = RsParametros!usuarioautenticacao
    ConfigEmail.Fields(Schema & "sendpassword") = RsParametros!Senha
    ConfigEmail.Fields.Update
    
    Set Rs = New ADODB.Recordset
    Rs.Open StrSQL, Db, adOpenKeyset, adLockPessimistic
    
    TituloEmail = "Relatório compra - Fornecedor " & Rs!RazaoSocial
    EnderecoEmail = Rs!Email

    CrpPedidoCompra.DiscardSavedData
    CrpPedidoCompra.Database.SetDataSource Rs
    
    CrpPedidoCompra.ExportOptions.FormatType = crEFTPortableDocFormat ' Define o tipo de arquivo a exportar como pdf
    CrpPedidoCompra.ExportOptions.DestinationType = crEDTDiskFile 'Define o Destino HD
    CrpPedidoCompra.ExportOptions.PDFExportAllPages = True 'Todas as páginas
    CrpPedidoCompra.ExportOptions.ExchangeFolderPath = App.Path 'A pasta onde o arquivo vai ser salvo
    CrpPedidoCompra.ExportOptions.DiskFileName = "PedidoCompra.pdf"  'O nome do arquivo
    CrpPedidoCompra.Export False ' o False é para evitar a exibição das caixas de diálogo.

    Set EnviaEmail = New CDO.Message
    Set EnviaEmail.Configuration = ConfigEmail
    EnviaEmail.From = RsParametros!usuarioautenticacao
    EnviaEmail.To = EnderecoEmail
    If RsParametros!recebercopia = 1 Then EnviaEmail.BCC = RsParametros!Email
    'Assunto da mensagem
    EnviaEmail.Subject = TituloEmail

    'Anexar um arquivo
    EnviaEmail.AddAttachment App.Path & "\PedidoCompra.pdf"
    EnviaEmail.Send
    MsgBox "Email enviado com sucesso", vbExclamation
    Kill App.Path & "\PedidoCompra.pdf"


E anexado esta o arquivo pdf como chega nos meus clientes

Desde já agradeço a ajuda de todos


Teoria é quando se sabe tudo, e nada funciona. Prática e quando tudo funciona e ninguém sabe porque.
"Aquele que quer aprender gosta que lhe digam quando esta errado;
só o tolo não gosta de ser corrigido -"Prov.12:1


#479101 - 13/01/2018 22:58:24

EPISCOPAL
VARZEA GRANDE
Cadast. em:Maio/2009


#479102 - 14/01/2018 01:10:45

ALVAROVB2009
GUARULHOS
Cadast. em:Maio/2009


Vlw a dica, estarei dando uma olhada

Teoria é quando se sabe tudo, e nada funciona. Prática e quando tudo funciona e ninguém sabe porque.
"Aquele que quer aprender gosta que lhe digam quando esta errado;
só o tolo não gosta de ser corrigido -"Prov.12:1


#479108 - 14/01/2018 12:56:04

ALVAROVB2009
GUARULHOS
Cadast. em:Maio/2009


1 desses projetos é o que estou usando, o envio pelo schema e a configuração esta exatamente a mesma do que estou usando e dai não entendo o que pode estar de errado com o comando no win10, pois na teoria não era para dar erro quando o cliente receber o email

Outro é uma ocx

e o terceiro projeto irei testar, pois não tinha visto ainda



Teoria é quando se sabe tudo, e nada funciona. Prática e quando tudo funciona e ninguém sabe porque.
"Aquele que quer aprender gosta que lhe digam quando esta errado;
só o tolo não gosta de ser corrigido -"Prov.12:1


#479283 - 24/01/2018 12:20:53

EPISCOPAL
VARZEA GRANDE
Cadast. em:Maio/2009


Resolveu???

____________________________________________________________________
Ecclesiastic Office Episcopal




#479347 - 27/01/2018 17:19:42

ALVAROVB2009
GUARULHOS
Cadast. em:Maio/2009


Vlw a ajuda, estou usando o vbsendmail, que eu já até tinha um exemplo desse aqui comigo e é a segunda opção que vc passou também, apenas peguei a Dll para o win10
A terceira opção que vc passou, na realidade nem testei, mais por falta de tempo do que outra coisa mesmo

Agora continuo não entendendo o pq o Schema não esta funcionando com o Win10 e funciona com os windows abaixo, deve ser coisa da dona microsoft, ter bug com os próprios comandos

Vou deixar aberto aqui, caso vc ou outra pessoal queira falar alguma coisa e depois vou fechar

Agradeço a ajuda prestada

Teoria é quando se sabe tudo, e nada funciona. Prática e quando tudo funciona e ninguém sabe porque.
"Aquele que quer aprender gosta que lhe digam quando esta errado;
só o tolo não gosta de ser corrigido -"Prov.12:1


#479350 - 27/01/2018 18:06:56

EPISCOPAL
VARZEA GRANDE
Cadast. em:Maio/2009


Será que está dando erro não é alguma configuração sua?

RsParametros!*********

____________________________________________________________________
Ecclesiastic Office Episcopal




#479351 - 27/01/2018 18:49:50

ALVAROVB2009
GUARULHOS
Cadast. em:Maio/2009


Acredito que não, pq essa mesma configuração de email esta sendo usada em outros sistemas

O pior é que ele envia normalmente, só que quando chega o email no cliente que esta chegando o arquivo corrompido, como coloquei no anexo

Teoria é quando se sabe tudo, e nada funciona. Prática e quando tudo funciona e ninguém sabe porque.
"Aquele que quer aprender gosta que lhe digam quando esta errado;
só o tolo não gosta de ser corrigido -"Prov.12:1


 Tópico anterior Próximo tópico Novo tópico


Para responder este tópico o login é requerido
Se você já possui uma conta de usuário por favor faça seu login
Se você não possui uma conta de usuário use a opção Criar usuário