emailadressen exporteren naar Outlook

[brammetje82]

Beste lezers,

Welilcht dat iemand mij met de volgende vraag kan helpen.

Ik heb in Excel 2007 een lijst met namen en daarbij een kolom met emailadressen. Ik zou graag met een druk op een knop in het excelblad willen dat deze email adressen naar het veld "Aan" gaan in een nieuw te versturen mail in Outlook zodat ik ze niet allemaal afzonderlijk hoef aan te klikken.

Weet iemand of en hoe dit gaat?
Alvast bedankt.

mvg,
Bram

 

[Roncancio]

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

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

    
    With olMail
        .To = sAan 
        .BCC = ActiveSheet.Range("C1").Text
        .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 kijkt in de A-kolom en zet de e-mailadressen uit die kolom uiteindelijk bij Aan om te verzenden.

Met vriendelijke groet,


Roncancio

 

[brammetje82]

Hoi Roncancio,

Als ik de macro uitvoer krijg ik de volgende foutmelding in deze regel
Dim olApp As Outlook.Application:

Compileerfout
Een door de gebruiker gedefinieerd gegevenstype is niet gedefinieerd


mvg,
Bram

 

[Roncancio]

Je moet nog een verbinding maken naar de library van Outlook. Hoe?

- Ga naar Extra - Macro - Visual Basic Editor.
- Ga naar Extra - Verwijzingen..
- Zoek in de lijst van "Beschikbare verwijzingen" naar Microsoft Outlook 11.0 Office Library (Kan een andere versie nummer zijn).
- Vink het aan
- Klik op OK.

Met vriendelijke groet,


Roncancio

 

[brammetje82]

Hoi Roncancio,

Het werkt! Dank daarvoor.

Echter nog 1 ding. Nu verzend hij direct het mailtje zonder dat ik er nog een inhoud aan mee kan geven.
Ik heb in outlook de optie "Bij verbinding direct verzenden" uitgevinkt. Maar dat had geen effect.

Ik heb nu in de code de 1Rij = 1 regel dusdanig ingesteld dat hij ook de kolomnaam meeneemt in het "aan" veld. Dan stuurt hij de mail niet direct door.
Maar misschien is er een mooiere oplossing te bedenken aangezien je nu het de kolom naam uit het "Aan" veld moet halen alvorens je hem verzend.

mvg,
Bram

 

[brammetje82]

Tis me al gelukt.
Ik heb . send weggehaald.
Dat lijkt te werken.

Bedankt voor het meedenken. :thumb:

 

[snb]

Deze macro doet hetzelfde, maar slaat de mail op in de map concepten, zodat je er nog van alles mee kunt doen.

With CreateObject("Outlook.Application").CreateItem(olMailItem)
  .to = Split(Join(WorksheetFunction.Transpose(Sheets(1).Columns(1).SpecialCells(xlCellTypeConstants)), "|"), "|")
  .Subject = "Helpmij"
  .Body = "emailadressen kunnen ook als matrix worden toegekend aan de eigenschap To:  ; wel zo eenvoudig dus."
  .Save
End With