cobrebemx com Xharbour

Projeto [x]Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

paiva
Usuário Nível 3
Usuário Nível 3
Mensagens: 300
Registrado em: 04 Ago 2005 10:28

cobrebemx com Xharbour

Mensagem por paiva »

BOA Tarde.

como usar o cobrebem com o Xharbour

peguei um ex e modifiquei

descobri como mandar para Impressora padrão.

DUVIDA - como mandar para outra impressora NÃO padrão ?

Como gerar o arquivo para transmitir ? + na frente como pegar o arquivo ?

estou tentando testar enviar email

Duvida - o que fazer a cada boleta e no final ?

estou fazendo assim:

msgstop("antes do email")

n = 3
*================ E - MAIL
oCBx:PadroesBoleto:PadroesBoletoEmail:SMTP:Servidor:= 'smtp.gmail.com'
*oCBx:PadroesBoleto:PadroesBoletoEmail:SMTP:Porta:= 25
oCBx:PadroesBoleto:PadroesBoletoEmail:SMTP:Porta:= 587
oCBx:PadroesBoleto:PadroesBoletoEmail:SMTP:Usuario:=
'cpaivasistemas@gmail.com'
oCBx:PadroesBoleto:PadroesBoletoEmail:SMTP:Senha:= 'senha'
oCBx:PadroesBoleto:PadroesBoletoEmail:URLImagensCodigoBarras:=
'http://cobrebem.com/imagenscbe/'
oCBx:PadroesBoleto:PadroesBoletoEmail:URLLogotipo:=
'http://www.site.com.br/meubanner.gif' // Informe a URL do logotipo do
Cedente
oCBx:PadroesBoleto:PadroesBoletoEmail:PadroesEmail:Assunto:= 'Boleto: '
+ STRZERO(n,3)
oCBx:PadroesBoleto:PadroesBoletoEmail:PadroesEmail:Mensagem:= 'Boleto
no.' + STRZERO(n,3) + ' Teste para Homologacao BB'

oCBx:PadroesBoleto:PadroesBoletoEmail:PadroesEmail:EmailFrom:Endereco:=
'cpaivasistemsa@gmail.com' // Cedente
oCBx:PadroesBoleto:PadroesBoletoEmail:PadroesEmail:EmailFrom:Nome:=
'Nome=carlos paiva' // Cedente
oCBx:PadroesBoleto:PadroesBoletoEmail:PadroesEmail:FormaEnvio:= 1
//0-Corpo do e-mail 1-Boleto anexado
oCBX:PadroesBoleto:PadroesBoletoEmail:LayoutBoletoEmail:=
"CarnetReciboLateralEsquerdaImpressao" //Em aplicações Web Informar a
palavra Impressão ao final do nome do layout

*ta dando pau nessas linhas
*Email := oBoleto:EnderecosEmailSacado:Add()
*Email:Nome := oBoleto:NomeSacado
*Email:Endereco := 'cpaiva@netsite.com.br' // Sacado

oCBx:EnviaBoletosPorEmail()

msgstop("depois do email")

ele NAo da erro + NAo envia (rs)

DUVIDA: no final de tudo que mando email ou a cada BOLETO envia...
a variavel N ta dando a entender que a cada email vc prepara envia
Responder