Ir para conteúdo
Fórum Script Brasil
  • 0

Anexar E-mail Usando Vbs (wsh)


Guest Cruzfs

Pergunta

Galera....Estou precisando de uma ajuda :(

Tenho o código abaixo já funcionando, porem não consegui enviar e-mail com anexo,

somente e-mail simples:

'Body of email message

Dim msgBody

msgBody="Teste de e-mail via script, só falta anexar o arquivo 8( "

'Call our function with recipient, message and subject

MySendMail "teste.teste@br.teste.com",msgBody,"Automated Message."

Sub MySendMail(recipient,msg,subject)

Dim objSession, oInbox, colMessages, oMessage, oAttachment, colRecipients

Set objSession = CreateObject("MAPI.Session")

objSession.Logon "Outlook"

Set oInbox = objSession.Inbox

Set colMessages = oInbox.Messages

Set oMessage = colMessages.Add()

Set colRecipients = oMessage.Recipients

colRecipients.Add recipient

colRecipients.Resolve

oMessage.Subject = subject

oMessage.Text = msg

oMessage.Send

objSession.Logoff

Set objSession = nothing

End Sub

Já tentei criar um Objeto para anexar, mas não funcionou

alguém tem ideia de como fazer????? :rolleyes:

Grato pela atençao e Abraços..... B)

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...