Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

Automatisch alles mailen uit Excel

Anoniem
WebbySP
2 antwoorden
  • Ik heb een vraagje over een VB scrippie.

    Ik wil nl. vanuit Excel automatisch mailtjes kunnen versturen.

    Het Excelsheet dat ik heb ziet er als volgt uit :

    email@bladiebla.nl
    onderwerp
    body, die bestaat uit meerdere
    regels onder elkaar, meestal een stuk
    of 8 ……

    email2@bladiebla.nl
    onderwerp2
    body, die bestaat uit meerdere
    regels onder elkaar, meestal een stuk
    of 8 ……

    email3@bladiebla.nl
    onderwerp3
    body, die bestaat uit meerdere
    regels onder elkaar, meestal een stuk
    of 8 ……

    enz.

    Nu had ik al iets als :

    Code:


    Sub stuurmail()
    Dim Out As Outlook.Application
    Dim geadresseerde As String
    Dim onderwerp As String
    Dim inhoud As String

    Set Out = New Outlook.Application
    Dim p As mailitem
    Set p = Out.CreateItem(olmailitem)

    Do Until ActiveCell = "x"

    geadresseerde = Range("A1").Value
    onderwerp = Range("A2").Value
    inhoud = Range("A3", "A5").Group (DEZE KLOPT NIET !!)

    p.Recipients = (geadresseerde)
    p.Subject = (onderwerp)
    p.body = (inhoud)
    p.send
    ActiveCell.Offset(1, 0).Select
    Loop
    End Sub



    Maar kom eigenlijk geen stap verder.

    Iemand die er sjoege van heeft ?
  • Het gat dus nog om de inhoud van x cellen onderelkaar in een string ?

    for i = 2 to x
    inhoud = inhoud & " " & range("A" & i).value
    next i

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.