Hjælp til autimatisk at send mail via excel

Hej Theresa

Prøv at sende en Excel fil - eksempel med data for de forskellige kolonner - så vil jeg godt prøve at skrive VBA-koden

ps.: @-adresse under min profil.

har sendt mail :) og tak, send point og du får dem

Håber vi andre også kan hente det, har selv kikket efter noget næsten magen til.

Supertekst begynd at bede om upload til gupl.dk fremfor at bede om mail.

Det gør jeg også for det meste - det smuttede denne gang - beklager

Der manglede vist et svar..

Løsningen til denne opgave ville jeg rigtig gerne se hvis det er muligt?
Mvh Kurt

Const skal_rykkes = "Skal rykkes"

Dim antalRækker As Integer, ræk As Integer, mailAdresse As String, navn As String
Private Sub Workbook_Open()
Rem beregn antal rækker
    antalRækker = ActiveCell.SpecialCells(xlLastCell).Row
   
Rem traverser rækkerne
    For ræk = 2 To antalRækker
Rem Test om "Skal rykkes" og ikke er blevetdet
        If Range("D" & ræk) = skal_rykkes And Range("E" & ræk) = "" Then
            mailAdresse = Range("F" & ræk)
            navn = Range("A" & ræk)
           
            sendMailen mailAdresse, navn
           
            Range("E" & ræk) = Format(Now, "dd-mmm")
        End If
   
    Next ræk
    ActiveWorkbook.Save
End Sub
Private Sub sendMailen(mailAdresse, navn)
Dim mailApp, Namespace
    Set mailApp = CreateObject("Outlook.application")
    Set Namespace = mailApp.GetNamespace("MAPI")
   
    Set nyMail = mailApp.CreateItem(olMailItem)
    Set TilModtager = nyMail.Recipients.Add(mailAdresse)
   
    nyMail.Subject = "Rykker"              'Emne
    nyMail.body = "Kære " & navn            'Tekst
    nyMail.Display                          'Viser mailen som da kan ajourføres.
'    nyMail.Send                            'Ej automatisk p.t.
End Sub

Ser ud til at det er lige det jeg søger!
1000 tak for lynhurtigt svar ;-)

mvh Kurt