ENVIAR EMAIL

LEANDROR10 21/02/2013 15:18:05
#419488
Boa tarde a Todos...

Estou usando o código abaixo para enviar email, funciona, mais dependendo do tamanho do texto da erro, ou seja tem um limite de caracteres, alguem sabe um jeito para não ter limite de caracteres digitado?

Obs: esse modo abre o Outlook para visualizar a mensagem.

Recipient = exemplo@exemplo.com.br
Recipientcc = exemplo@exemplo.com.br [ô] com copia
Subj = Assunto do Email & vb
msg = [Ô]Digitar a mensagem .... [Ô] & vbNewLine & _
[Ô]......... [Ô] & vbNewLine
msg = WorksheetFunction.Substitute(msg, vbNewLine, [Ô]%0D%0A[Ô])
HLink = [Ô]mailto:[Ô] & Recipient & [Ô]?[Ô] & [Ô]cc=[Ô] & Recipientcc & [Ô]&[Ô]
HLink = HLink & [Ô]subject=[Ô] & Subj & [Ô]&[Ô]
HLink = HLink & [Ô]body=[Ô] & msg
ThisWorkbook.FollowHyperlink (HLink)


Obrigado.
LEANDROR10 22/02/2013 11:11:24
#419521
Alguem conhece outra forma de enviar email, sem limite de caracteres pelo VB6?

obrigado.
ALEVALE 22/02/2013 11:28:07
#419523 Resposta escolhida
Utilize uma DLL chamada (Vbsendmail.dll)

Até onde eu conheço não existe limite de caracteres para envio de e-mail, de destinatarios sim.

Exemplo:
http://www.linkedin.com/groups?gid=4058368&goback=%2Egde_4058368_member_216649063
Tópico encerrado , respostas não são mais permitidas
Voltar