Problem with attachments lib tipmail
Moderator: Rathinagiri
Problem with attachments lib tipmail
Hello I have a personal problem to attach files to email using the lib tipmail can only attach a file two or more does not send the email, someone has this lib working with attachments that use more than one file
AADD(aARQUI , "c:\mapa seven.pdf" ) -> ok one files
AADD( aARQUI , "c:\mapa seven2.pdf" ) -> two files not send email
AADD(aARQUI , "c:\mapa seven.pdf" ) -> ok one files
AADD( aARQUI , "c:\mapa seven2.pdf" ) -> two files not send email
- danielmaximiliano
- Posts: 2614
- Joined: Fri Apr 09, 2010 4:53 pm
- Location: Argentina
- Contact:
Re: Problem with attachments lib tipmail
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
Re: Problem with attachments lib tipmail
Daniel ja tinha testado o exemplo mas não funciona com mais de um anexo so funciona com um anexo não entendi muito bem o parametro da função do mol /A onde eu uso este parametrodanielmaximiliano wrote:Ola Jair:
ud vê aqui?
http://hmgforum.com/viewtopic.php?f=5&t=260&start=10
contém fonte
segue exemplo do meu codigo
Daniel had already tested the example but does not work with more than one attachment only works with an attachment did not quite understand the parameter of the function of mol / A where I use this parameter
following example from my code
Code: Select all
so funciona com um anexo somente
IF Form_Novo_OS.List_1.ItemCount > 0
FOR I:= 1 TO Form_Novo_OS.List_1.ItemCount
AADD(aARQUI ,Form_Novo_OS.List_1.Item(i))
NEXT
ENDIF
IF hb_SendMail(cServerIP,nPort,cFrom,aTo,aCC,,cCorpoMsg,cAssunto, aARQUI, cUser , cSenha, cPopServer, 1 , lRead, lTrace,lPopAuth, lNoAuth )
Msginfo("Email enviado com sucesso")
lEnviado := .T.
Else
Msginfo("Falha no envio de Email, Verique usuario e senha e ou Conexões de Redes")
lEnviado := .F.
Endif
- danielmaximiliano
- Posts: 2614
- Joined: Fri Apr 09, 2010 4:53 pm
- Location: Argentina
- Contact:
Re: Problem with attachments lib tipmail
Olá Jair:jairpinho wrote:
Daniel ja tinha testado o exemplo mas não funciona com mais de um anexo so funciona com um anexo não entendi muito bem o parametro da função do mol /A onde eu uso este parametro
segue exemplo do meu codigo
Daniel had already tested the example but does not work with more than one attachment only works with an attachment did not quite understand the parameter of the function of mol / A where I use this parameter
Estes são os parâmetros passados para a aplicação Sendmail.
estes são enviados a partir do console ou de outro aplicativo.
Code: Select all
C:\Senmail\Sendmail.exe /a
Code: Select all
if pcount() = 0
lCallSendMailWindow := .t.
else
// analyse parameters
i := 1
while i <= pcount()
cParam := upper(HB_PValue(i))
cNextParam := HB_PValue(i+1)
do case
case cParam == "/I"
// treat next argument as the name of ini file
i++
cIniFile := cNextParam
case cParam == "/A"
// next argument points attachment file
i++
cFile := cNextParam
if file(cFile)
aadd(aAttachments, cFile)
endif
// you can put your action here
// remember to change code in GetSettings function to not override these values if they are set
case cParam == "/TO"
case cParam == "/BC"
case cParam == "/BCC"
case cParam = "/SUB"
endcase
i++
enddo
endif
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
Re: Problem with attachments lib tipmail
-- Daniel preciso enviar varios arquivos em anexo usando esta forma, mas não esta funcionado
-- Daniel need to send several files attached using this form, but it worked
so funciona com um anexo somente
IF Form_Novo_OS.List_1.ItemCount > 0
FOR I:= 1 TO Form_Novo_OS.List_1.ItemCount
AADD(aARQUI ,Form_Novo_OS.List_1.Item(i))
NEXT
ENDIF
IF hb_SendMail(cServerIP,nPort,cFrom,aTo,aCC,,cCorpoMsg,cAssunto, aARQUI, cUser , cSenha, cPopServer, 1 , lRead, lTrace,lPopAuth, lNoAuth )
Msginfo("Email enviado com sucesso")
lEnviado := .T.
Else
Msginfo("Falha no envio de Email, Verique usuario e senha e ou Conexões de Redes")
lEnviado := .F.
Endif
-- Daniel need to send several files attached using this form, but it worked
so funciona com um anexo somente
IF Form_Novo_OS.List_1.ItemCount > 0
FOR I:= 1 TO Form_Novo_OS.List_1.ItemCount
AADD(aARQUI ,Form_Novo_OS.List_1.Item(i))
NEXT
ENDIF
IF hb_SendMail(cServerIP,nPort,cFrom,aTo,aCC,,cCorpoMsg,cAssunto, aARQUI, cUser , cSenha, cPopServer, 1 , lRead, lTrace,lPopAuth, lNoAuth )
Msginfo("Email enviado com sucesso")
lEnviado := .T.
Else
Msginfo("Falha no envio de Email, Verique usuario e senha e ou Conexões de Redes")
lEnviado := .F.
Endif
- danielmaximiliano
- Posts: 2614
- Joined: Fri Apr 09, 2010 4:53 pm
- Location: Argentina
- Contact:
Re: Problem with attachments lib tipmail
Jair:jairpinho wrote:-- Daniel preciso enviar varios arquivos em anexo usando esta forma, mas não esta funcionado
-- Daniel need to send several files attached using this form, but it worked
so funciona com um anexo somente
IF Form_Novo_OS.List_1.ItemCount > 0
FOR I:= 1 TO Form_Novo_OS.List_1.ItemCount
AADD(aARQUI ,Form_Novo_OS.List_1.Item(i))
NEXT
ENDIF
IF hb_SendMail(cServerIP,nPort,cFrom,aTo,aCC,,cCorpoMsg,cAssunto, aARQUI, cUser , cSenha, cPopServer, 1 , lRead, lTrace,lPopAuth, lNoAuth )
Msginfo("Email enviado com sucesso")
lEnviado := .T.
Else
Msginfo("Falha no envio de Email, Verique usuario e senha e ou Conexões de Redes")
lEnviado := .F.
Endif
verificar a quantidade de items?
Code: Select all
IF Form_Novo_OS.List_1.ItemCount > 0
MsgBox ("Items:" + str (Form_Novo_OS.List_1.ItemCount))
FOR I:= 1 TO Form_Novo_OS.List_1.ItemCount
AADD(aARQUI ,Form_Novo_OS.List_1.Item(i))
NEXT
ENDIF
Code: Select all
function AddAttachment
local aFiles := {}
local i
aFiles := Getfile ( { {'All Files','*.*'} } , 'Get attachment' , 'c:\' , .t. , .t. )
for i := 1 to len(aFiles)
aAdd(aAttachments, aFiles[i])
next i
SendMail.List_Attachments.DeleteAllItems()
for i:=1 to len(aAttachments)
SendMail.List_Attachments.AddItem(aAttachments[i])
next i
return
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
- danielmaximiliano
- Posts: 2614
- Joined: Fri Apr 09, 2010 4:53 pm
- Location: Argentina
- Contact:
Re: Problem with attachments lib tipmail
Jair:
arquivos que estão tentando enviar e-mail na mesma pasta que a aplicação Sendmail??
fazer o teste
arquivos que estão tentando enviar e-mail na mesma pasta que a aplicação Sendmail??
fazer o teste
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
Re: Problem with attachments lib tipmail
Ola daniel achei o problema
toda vez que vou enviar o email leio o arquivo em no diretorio da aplicação com o neme de config.ini onde pego o usuario e a senha para enviar o email.
BEGIN INI File("Config.ini")
GET User_Automail SECTION "Autoemail" ENTRY "User ST"
GET Senha_Automail SECTION "Autoemail" ENTRY "Senha ST"
GET Email_Automail SECTION "Autoemail" ENTRY "E-mail ST"
END INI
o que esta acontecendo quando uso o getfile com a opção change dir ele muda o local de leitura do meu arquivo .ini deixando minhas variaveis vazia por isso não envia o email com varios arquivos
tentei mudar isso fazendo desta forma mas não funcionaou
aqui deveria ler do meu diretorio da aplicação mas não le, só le no diretorio que o getfile definiu como padrão até cria um arquivo com o nome do meu neste direorio
BEGIN INI File(DiskName()+ ":\"+CurDir() + "\Config.ini")
GET User_Automail SECTION "Autoemail" ENTRY "User ST"
GET Senha_Automail SECTION "Autoemail" ENTRY "Senha ST"
GET Email_Automail SECTION "Autoemail" ENTRY "E-mail ST"
END INI
solução que encontrei foi desabilitar o opção changedir na função getfile ou ler arquivos do diretorio onde esta rodando a aplicação
aFiles := GetFile({ {"Todos Arquivos", "*.*"}, {"Arquivos", "*.*"} }, "Selecione os Arquivos",".\", lMultiSelect,.T.)
assim funciou pois não alterou a leitura do arquivo *.ini
obrigado pela ajuda Daniel se souber uma maneira melhor de como mudar isso agradeço.
toda vez que vou enviar o email leio o arquivo em no diretorio da aplicação com o neme de config.ini onde pego o usuario e a senha para enviar o email.
BEGIN INI File("Config.ini")
GET User_Automail SECTION "Autoemail" ENTRY "User ST"
GET Senha_Automail SECTION "Autoemail" ENTRY "Senha ST"
GET Email_Automail SECTION "Autoemail" ENTRY "E-mail ST"
END INI
o que esta acontecendo quando uso o getfile com a opção change dir ele muda o local de leitura do meu arquivo .ini deixando minhas variaveis vazia por isso não envia o email com varios arquivos
tentei mudar isso fazendo desta forma mas não funcionaou
aqui deveria ler do meu diretorio da aplicação mas não le, só le no diretorio que o getfile definiu como padrão até cria um arquivo com o nome do meu neste direorio
BEGIN INI File(DiskName()+ ":\"+CurDir() + "\Config.ini")
GET User_Automail SECTION "Autoemail" ENTRY "User ST"
GET Senha_Automail SECTION "Autoemail" ENTRY "Senha ST"
GET Email_Automail SECTION "Autoemail" ENTRY "E-mail ST"
END INI
solução que encontrei foi desabilitar o opção changedir na função getfile ou ler arquivos do diretorio onde esta rodando a aplicação
aFiles := GetFile({ {"Todos Arquivos", "*.*"}, {"Arquivos", "*.*"} }, "Selecione os Arquivos",".\", lMultiSelect,.T.)
assim funciou pois não alterou a leitura do arquivo *.ini
obrigado pela ajuda Daniel se souber uma maneira melhor de como mudar isso agradeço.
- danielmaximiliano
- Posts: 2614
- Joined: Fri Apr 09, 2010 4:53 pm
- Location: Argentina
- Contact:
Re: Problem with attachments lib tipmail
arquivos que são enviados por e-mail gerado automaticamente pelo outro HMG aplicação? estão em algum diretório especial para ele??solução que encontrei foi desabilitar o opção changedir na função getfile ou ler arquivos do diretorio onde esta rodando a aplicação
aFiles := GetFile({ {"Todos Arquivos", "*.*"}, {"Arquivos", "*.*"} }, "Selecione os Arquivos",".\", lMultiSelect,.T.)
Code: Select all
public cIniFile := (DiskName()+ ":\"+CurDir() + "\sendmail.ini")
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
Re: Problem with attachments lib tipmail
obrigado Daniel adicionei esta linha no programa principal de minha aplicação resolveu o problema com o changedir do get file
Code: Select all
public cIniFile := (DiskName()+ ":\"+CurDir() + "\Config.ini")