Envío de email desde una aplicación
 

Hola, tengo una function para enviar correos que funciona perfectamente

function SendMail(aHost, aUser, aPassword, aSender, aRecipient, aSubject, aBody: ShortString): Boolean; stdcall

El problema es que el cuerpo del mensaje solo admite 255 caracteres ya que está definido como ShortString.

Necesito una function que me permita enviar un texto más largo o un fichero adjunto.

Gracias.

Cambia el shortstring por string

la función está en una dll y no tengo acceso a cambiar. Por eso es que necesito una function que me permita enviar un adjunto o un texto más grande, comprendes?

Hola corrales.

Revisa estos enlaces:

• Sending Email Messages with Attachments using Delphi and Indy
• Send Email in Delphi - Tutorial

Saludos :)