Mail versturen vanuit Excel

Question

Ik wil een macro maken om een email te versturen vanuit Excel.

Ik heb wel enkele voorbeelden gevonden, maar kom er niet uit.

Wat ik wil:

Mail versturen ongeacht het e-mailprogramma dat wordt gebruikt.

Ontvanger van de email is een vast e-mailadres (ik zelf)

Onderwerp: Waarde uit cel A1

Tekst bericht: Waarde uit A2 en A3

Groeten,

Henk

Answer 1

Hoi Henk,

' Plak onderstaande in een module

' Wijzig mail.kpnmail.nl in je eigen SMPT server (uitgaande mail)

' Verander ******@ikzelf.nl in je eigen e-mailadres (2x)

Option Explicit

Sub Send_mail()

'e-mail verzenden zonder e-mail programma (met CDO)

'Bron: http://www.rondebruin.nl/cdo.htm

Dim iMsg As Object

Dim iConf As Object

Dim Flds As Variant

Set iMsg = CreateObject("CDO.Message")

Set iConf = CreateObject("CDO.Configuration")

    iConf.Load -1    ' CDO Source Defaults

    Set Flds = iConf.Fields

    With Flds

        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.kpnmail.nl"

        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

        .Update

    End With

    With iMsg

        Set .Configuration = iConf

        .To = "******@ikzelf.nl"

        .Cc = Empty

        .Bcc = Empty

        .From = """Mail vanuit Excel""<******@ikzelf.nl>"

        .Subject = Cells(1, 1)

        .Textbody = Cells(2, 1) & vbNewLine & Cells(3, 1)

        .Send

    End With

Set iMsg = Nothing

Set iConf = Nothing

End Sub

Succes ermee.

Groeten Ronald.

Answer 2

Bedankt Ronald

Answer 3

Ik krijg het jammer genoeg niet werkend...

Answer 4

Dag Henk,

Op de site van Rob de Bruin vind je wat tips: http://www.rondebruin.nl/win/section1.htm

Misschien zit daar wat tussen.