EMAIL COM VARIOS ANEXOS

SNNIFFER 25/12/2012 17:04:25
#416388
Pessoal,

uso isso para enviar e-mails que funciona perfeitamente.

  
    With poSendMail
        
          
        .SMTPHost = ServerEmails             [ô] Required the fist time, optional thereafter
        .From = EnderecoEmails                        [ô] Required the fist time, optional thereafter
        .FromDisplayName = txtFromName.Text         [ô] Optional, saved after first use
        .SMTPPort = 587
        .AsHTML = False
        .Message = MensagemEmail                   [ô] Optional


        .Attachment = Trim(txtAttach.Text)          [ô] Optional, separate multiple entries with delimiter character
        (o problema está aqui)

        [ô].Attachment = Trim(Text1.Text)
        .UseAuthentication = bAuthLogin             [ô] Optional, default = FALSE
        .UserName = EnderecoEmails                        [ô] Optional, default = Null String
        .Password = SenhaEmails               [ô] Optional, default = Null String, value is NOT saved
        [ô].PersistentSettings = True
        

bla, bla, bla...



Gostaria de saber como posso adicionar mais de um anexo.

Alguem pode me ajudar.
SNNIFFER 25/12/2012 19:41:03
#416393
Consegui adicionando a linha:

  
        .Delimiter = [Ô];[Ô]
       
E nesta linha adicionando o caminho dos arquivos:

        .Attachment = Trim(txtAttach.Text) & [Ô];[Ô] & Trim(Text1.Text)
Tópico encerrado , respostas não são mais permitidas
Voltar