meerdere e-mails versturen

[jli]

Beste allemaal,

Ben vrij nieuw op dit forum,
En heb nu een vraagje,

Ik heb in Excel in kolom c een 50 tal e-mail adressen staan.
ik wil met onderstaande code al die 50 e-mail adressen een mail sturen.

Sub simpeler()
With CreateObject("Outlook.application")
  For j = 2 To 300
If Cells(j, 1) = "" Then Exit For
    With .CreateItem(0)
      .body = vbCr & Cells(j, 1) & vbCr & Cells(j, 3)
      .To = Range("b1:b3")
      .CC = ""
      .BCC = ""
      .Subject = "test"
     .Send
    End With
  Next
End With
End Sub

Jurgen

 

[robdgr]

ik wil met onderstaande code al die 50 e-mail adressen een mail sturen.

Jurgen,

En wat is nu je vraag? Werkt dit niet? Ken je de site van Ron de Bruin?

 

[snb]

Sub simpeler()
  With CreateObject("Outlook.application")
    With .CreateItem(0)
      .body = "allemaal dezelfde tekst
      .To = sheets(1).Range("c1:c50")
      .Subject = "test"
      .Send
    End With
  End With
End Sub

of als ieder een eigen tekst moet hebben (die in dezelfde rij in kolom A en B staat):

Sub simpeler()
  for each cl in sheets(1).columns(3).specialcells(2)
    With CreateObject("Outlook.application")
      With .CreateItem(0)
        .body = cl.offset(,-2) & vbcr & cl.offset(,-1)
        .To = cl.value
        .Subject = "test"
        .Send
      End With
    End With
  Next
End Sub

@rdg1314

Ik vind Ron's site en code onnodig ingewikkeld.

 

[jli]

Beste snb,

Ja daar zeg je zo iets;
" of als ieder een eigen tekst moet hebben (die in dezelfde rij in kolom A en B staat): "

Het is namelijk bedoelt voor het versturen van 2 verschillende nieuwsbrieven, en het zou mooi zijn dat als ik in Excel in kolom A de juiste nieuwsbrief heb gezet, de code dan die nieuwsbrief verstuurd.

Nu stel ik handmatig in Outlook bij Extra, Opties, Emailindeling de handtekening in voor een bepaalde nieuwsbrief.

Jurgen

 

[jli]

Beste VBA ers,

Kan niemand mijn vraag beantwoorden ?

Jurgen