Envio de e-mail em massa com anexos

Question

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.

Answer 1

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.

Answer 2

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.

Answer 3

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.

Answer 4

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