Lijst met email adressen in excel omzetten naar bcc

[Dietch]

Ik heb in excel een hele grote lijst met email adressen en nu moet ik naar al die email adressen een email verzenden. Ik wil de email adressen in de bcc kolom voegen van mijn email programma maar nu zou ik niet weten hoe dat moet want als ik kopieren plakken doe krijg ik alleen de bovenste..

Hulp snel nodig Alvast bedankt

 

[Roncancio]

Ik heb in excel een hele grote lijst met email adressen en nu moet ik naar al die email adressen een email verzenden. Ik wil de email adressen in de bcc kolom voegen van mijn email programma maar nu zou ik niet weten hoe dat moet want als ik kopieren plakken doe krijg ik alleen de bovenste..

Hulp snel nodig Alvast bedankt

Geduld is een schone zaak.

Sub verzenden()
Dim olApp As Outlook.Application
Dim olMail As MailItem
Dim CurrFile As String
Dim BCC_Lijst As String
Dim lRij As Long
    lRij = 1
    While Range("A" & lRij) <> ""
        BCC_Lijst = BCC_Lijst & Range("A" & lRij) & ";"
        lRij = lRij + 1
    Wend
    BCC_Lijst = Left(BCC_Lijst, Len(BCC_Lijst) - 1)

    Set olApp = New Outlook.Application
    Set olMail = olApp.CreateItem(olMailItem)

    
    With olMail
        .To = ActiveSheet.ComboBox1.Text
        .BCC = BCC_Lijst
        .Subject = "Helpmij"
        .Body = ActiveSheet.Range("B1").Text & vbCrLf & ActiveSheet.Range("B2").Text
        .Display
        .Send
    End With

    Set olMail = Nothing
    Set olApp = Nothing
End Sub

Bovenstaande code zoekt in de A-kolom totdat een lege cel gevonden wordt.
De gevonden waardes worden in de BCC toegevoegd.

De titel van de email = Helpmij.
De tekst van het bericht worden uit de cellen B1 en B2 gehaald.

Met vriendelijke groet,


Roncancio

 

[Dietch]

Geduld is een schone zaak.

Sub verzenden()
Dim olApp As Outlook.Application
Dim olMail As MailItem
Dim CurrFile As String
Dim BCC_Lijst As String
Dim lRij As Long
    lRij = 1
    While Range("A" & lRij) <> ""
        BCC_Lijst = BCC_Lijst & Range("A" & lRij) & ";"
        lRij = lRij + 1
    Wend
    BCC_Lijst = Left(BCC_Lijst, Len(BCC_Lijst) - 1)

    Set olApp = New Outlook.Application
    Set olMail = olApp.CreateItem(olMailItem)

    
    With olMail
        .To = ActiveSheet.ComboBox1.Text
        .BCC = BCC_Lijst
        .Subject = "Helpmij"
        .Body = ActiveSheet.Range("B1").Text & vbCrLf & ActiveSheet.Range("B2").Text
        .Display
        .Send
    End With

    Set olMail = Nothing
    Set olApp = Nothing
End Sub

Bovenstaande code zoekt in de A-kolom totdat een lege cel gevonden wordt.
De gevonden waardes worden in de BCC toegevoegd.

De titel van de email = Helpmij.
De tekst van het bericht worden uit de cellen B1 en B2 gehaald.

Met vriendelijke groet,


Roncancio

Heel veel dank Roncancio, alleen waar moet ik die code in zetten?

Sorry ben niet zo goed met dit soort dingen!

 

[Roncancio]

Heel veel dank Roncancio, alleen waar moet ik die code in zetten?

Sorry ben niet zo goed met dit soort dingen!

In de visual basic editor.
Via Extra - Macro - Visual Basic Editor.
Vervolgens Invoegen - Module.

Je moet nog wel even de code aanpassen aan je bestand. (verwijzingen naar de emailadressen bijv.)

Met vriendelijke groet,


Roncancio

 

[Dietch]

In de visual basic editor.
Via Extra - Macro - Visual Basic Editor.
Vervolgens Invoegen - Module.

Je moet nog wel even de code aanpassen aan je bestand. (verwijzingen naar de emailadressen bijv.)

Met vriendelijke groet,


Roncancio

Hartstikke bedankt! gaat lukken hoop ik.

 

[Dietch]

In de visual basic editor.
Via Extra - Macro - Visual Basic Editor.
Vervolgens Invoegen - Module.

Je moet nog wel even de code aanpassen aan je bestand. (verwijzingen naar de emailadressen bijv.)

Met vriendelijke groet,


Roncancio

En wat nou als extra er niet tussen staat in de werkbalk? ik heb excel 2007 en ik zie het er niet tussen staan. Sorry dat ik zo vervelend ben

 

[Roncancio]

En wat nou als extra er niet tussen staat in de werkbalk? ik heb excel 2007 en ik zie het er niet tussen staan. Sorry dat ik zo vervelend ben

Via tabblad Ontwikkelaars.
Dit dient wel in de menubar te staan.

Met vriendelijke groet,


Roncancio

 

[Roncancio]

Ik heb mijn code een klein beetje aangepast omdat het anders zeer waarschijnlijk een foutmelding zal geven bij To.
Die verwees naar een combobox.
In deze nieuwe code staat het email van de ontvanger in cel C1.

Sub verzenden()
Dim olApp As Outlook.Application
Dim olMail As MailItem
Dim CurrFile As String
Dim BCC_Lijst As String
Dim lRij As Long
    On Error Resume Next    
    lRij = 1
    While Range("A" & lRij) <> ""
        BCC_Lijst = BCC_Lijst & Range("A" & lRij) & ";"
        lRij = lRij + 1
    Wend
    BCC_Lijst = Left(BCC_Lijst, Len(BCC_Lijst) - 1)

    Set olApp = New Outlook.Application
    Set olMail = olApp.CreateItem(olMailItem)

    
    With olMail
        .To = ActiveSheet.Range("C1").Text 
        .BCC = BCC_Lijst
        .Subject = "Helpmij"
        .Body = ActiveSheet.Range("B1").Text & vbCrLf & ActiveSheet.Range("B2").Text
        .Display
        .Send
    End With

    Set olMail = Nothing
    Set olApp = Nothing
End Sub

Met vriendelijke groet,


Roncancio