none
Envio de e-mail em massa com anexos RRS feed

  • Pergunta

  • Pessoal bom dia,

    hoje me deparei com necessidade de fazer o envios de e-mail para dentinário diferente e em cada e-mail um usuário e senha distintos e mais 2 anexos dei uma pesquisa sobre o sunto até lembrei da mala dieta do word mas não funcionou com os anexos, gostaria saber alguém sabe como posso fazer com em ecxel vba ou até em C# e alguma a outra base de dados, sou no em programação e nem sei por onde começar,  até achei uma planilha em ecxel com um modulo em vba mas mesma envia apenas um arquivos e não os dois como eu preciso, será que ai poderia me dar uma força.

    Pessoal não é spam nem tenho este interesse, isso seria para facilitar o meu trabalho na empresa.

    terça-feira, 27 de outubro de 2015 13:53

Respostas

  • Olá Moisés,

    Entendo. Mas se você não tem nem idéia de como faz isso aí fica complicado né. Você praticamente ta pedindo pra alguém desenvolver uma solução pra você. Neste caso foge um pouco do propósito do fórum. Se você souber o que está fazendo e tiver algum problema com o código fica mais fácil de a comunidade te ajudar.

    Atenciosamente


    Marcos Roberto de Souza Junior

    Esse conteúdo e fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as respostas que resolveram o seu problema. Essa e uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    • Sugerido como Resposta Eduardo xUni terça-feira, 27 de outubro de 2015 23:41
    • Marcado como Resposta Marcos SJ quarta-feira, 28 de outubro de 2015 12:54
    terça-feira, 27 de outubro de 2015 17:29

Todas as Respostas

  • Olá Moisés,

    Entendo. Mas se você não tem nem idéia de como faz isso aí fica complicado né. Você praticamente ta pedindo pra alguém desenvolver uma solução pra você. Neste caso foge um pouco do propósito do fórum. Se você souber o que está fazendo e tiver algum problema com o código fica mais fácil de a comunidade te ajudar.

    Atenciosamente


    Marcos Roberto de Souza Junior

    Esse conteúdo e fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as respostas que resolveram o seu problema. Essa e uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    • Sugerido como Resposta Eduardo xUni terça-feira, 27 de outubro de 2015 23:41
    • Marcado como Resposta Marcos SJ quarta-feira, 28 de outubro de 2015 12:54
    terça-feira, 27 de outubro de 2015 17:29
  • Roberto sou bem principiante com programação até enconteri na internet  uma planilha com  um modulo vb que faz isso mas envia apenas uma arquivo em anexo, se eu postar o código vc poderia me ajudar por gentileza cara, sei que está fora do proposito do forum, mas não conheço nada de vb, conheço muito de C#, se puder me ajudar como código tenho VB ficaria muito grato.
    terça-feira, 27 de outubro de 2015 17:47
  • Olá Moisés CS,

    Tudo bem?

    Pode postar o código, caso algum usuário possa te auxiliar, basta postar aqui mesmo.

    Atenciosamente


    Marcos Roberto de Souza Junior

    Esse conteúdo e fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as respostas que resolveram o seu problema. Essa e uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    quarta-feira, 28 de outubro de 2015 12:55
  • Pessoal este é código. o que preciso aqui é colocar apenas para enviar com cópia e enviar mais um arquivo anexo.

    Sub Enviar_Email(Dest As String, Copia As String, Nome As String, AnexItem As String)
    
    'declara variaveis
    Dim Assunto As String, Msg As String, AnexPath As String
    
    'atribui assunto
    Assunto = Range("assunto")
    
    'atribui mensagem
    Msg = Range("mensagem")
    
    'atribui caminhos dos anexos
    AnexPath = Range("anexos") & "\" & AnexItem
    
    'verifica se o arquivo existe
    'Set fs = CreateObject("Scripting.FileSystemObject")
    'Set a = fs.fileexists(AnexPath)
    
    'inclui o nome de destinatario na mensagem
    Msg = Replace(Msg, "<%Nome%>", Nome)
    
    'inicia objeto de email do Outlook
    Dim oApp As Outlook.Application
    Dim oMailItem As Outlook.MailItem
    
    Set oApp = CreateObject("Outlook.Application")
    Set oMailItem = oApp.CreateItem(olMailItem)
    
    With oMailItem
    
        .Subject = Assunto
        .Body = Msg
        .To = Dest
        .CC = Copia
        If Dir(AnexPath) <> "" Then .Attachments.Add (AnexPath)
        .Send
        
    End With
    
    
    End Sub
    
    Sub Enviar_Tudo()
    
    x = 2
    Do Until Range("A" & x) = ""
        Enviar_Email Range("B" & x), Range("C" & x), Range("A" & x), Range("D" & x)
        x = x + 1
    Loop
    
    End Sub
    


    quarta-feira, 28 de outubro de 2015 16:35