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 algum ja pegou isso

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

O envio de email esta funcionando normalmente nas verses anteriores do win10

Algum sabe me dizer se tem alguma limitao ou mudana 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 configurao 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 = []Relatrio 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 pginas
    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 exibio das caixas de dilogo.

    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 agradeo a ajuda de todos


Teoria quando se sabe tudo, e nada funciona. Prtica e quando tudo funciona e ningum sabe porque.
[]Aquele que quer aprender gosta que lhe digam quando esta errado;
s o tolo no gosta de ser corrigido -[]Prov.12:1


Resposta escolhida #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. Prtica e quando tudo funciona e ningum sabe porque.
[]Aquele que quer aprender gosta que lhe digam quando esta errado;
s o tolo no 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 configurao esta exatamente a mesma do que estou usando e dai no entendo o que pode estar de errado com o comando no win10, pois na teoria no era para dar erro quando o cliente receber o email

Outro uma ocx

e o terceiro projeto irei testar, pois no tinha visto ainda



Teoria quando se sabe tudo, e nada funciona. Prtica e quando tudo funciona e ningum sabe porque.
[]Aquele que quer aprender gosta que lhe digam quando esta errado;
s o tolo no gosta de ser corrigido -[]Prov.12:1


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

EPISCOPAL
VARZEA GRANDE
Cadast. em:Maio/2009


Resolveu???

____________________________________________________________________
Episcopal Studios


#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 opo que vc passou tambm, apenas peguei a Dll para o win10
A terceira opo que vc passou, na realidade nem testei, mais por falta de tempo do que outra coisa mesmo

Agora continuo no entendendo o pq o Schema no esta funcionando com o Win10 e funciona com os windows abaixo, deve ser coisa da dona microsoft, ter bug com os prprios comandos

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

Agradeo a ajuda prestada

Teoria quando se sabe tudo, e nada funciona. Prtica e quando tudo funciona e ningum sabe porque.
[]Aquele que quer aprender gosta que lhe digam quando esta errado;
s o tolo no 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 no alguma configurao sua?

RsParametros!*********

____________________________________________________________________
Episcopal Studios


#487763 - 20/03/2019 21:23:29

ALVAROVB2009
GUARULHOS
Cadast. em:Maio/2009


Estou encerrando esse tpico, pq acabei ficando com a dll do vbsendmail e no descobri o motivo que nessa mquina o schema no funcione, sendo que em outras mquinas da rede funciona normalmente

Teoria quando se sabe tudo, e nada funciona. Prtica e quando tudo funciona e ningum sabe porque.
[]Aquele que quer aprender gosta que lhe digam quando esta errado;
s o tolo no gosta de ser corrigido -[]Prov.12:1


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


Tópico encerrado, respostas não sao permitidas
Encerrado por ALVAROVB2009 em 20/03/2019 21:23:39