Ir para conteúdo
Fórum Script Brasil

thiagolimacosta

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    1

  • Registro em

  • Última visita

Sobre thiagolimacosta

Últimos Visitantes

O bloco dos últimos visitantes está desativado e não está sendo visualizado por outros usuários.

thiagolimacosta's Achievements

0

Reputação

  1. thiagolimacosta
    Nesse script como faço para enviar mais de um arquvivo de uma pasta ? Set objEmail = CreateObject("CDO.Message") objEmail.From = "borges.junior18@gmail" objEmail.Subject = "Teste" objEmail.To = "borges.junior18@gmail.com, borges-junior89@hotmail.com" objEmail.AddAttachment "D:\Symbol ls2208.pdf" e "D:\Symbol ls2209.pdf" objEmail.Textbody = "Teste de e-mail" objEmail.Configuration.Fields.Item_ ("http://schemas.microsoft.com/cdo/configuration/sendpassword")= "MINHA SENHA" objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _ "smtp.gmail.com" objEmail.Configuration.Fields.Item_ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objEmail.Configuration.Fields.Update objEmail.Configuration.Fields.Update objEmail.Send
×
×
  • Criar Novo...