Søg i Excel og send mail i outlook hvis...

Kan godt lade sig gøre via VBA...

Vender tilbage i morgen.

REM Anbring koden i det pågældende ark
rem ==================================
Dim antalræk, dd As Date
Sub SendMailDD()
Rem dags dato
    dd = Format(Now, "dd-mm-yy")
   
Rem Beregn antal rækker
    antalræk = ActiveCell.SpecialCells(xlLastCell).Row
   
Rem gennemgå kolonne K fra række 1til sidste
    For ræk = 1 To antalræk
        indhold = Range("K" & CStr(ræk))
        If IsDate(indhold) = True And indhold = dd Then
            mailadresse = Range("H" & CStr(ræk))
            sendMail mailadresse
        End If
    Next ræk
End Sub
Private Sub sendMail(adresse)
Dim mailApp, Namespace, nyMail, nyAtt
Dim emne, vedhft, body

    emne = "HUSK"
    body = ""
   
    On Error GoTo sendMailFejl
   
    Set mailApp = CreateObject("Outlook.Application")
    Set Namespace = mailApp.GetNamespace("MAPI")

    Set nyMail = mailApp.CreateItem(olMailItem)
    Set TilModtager = nyMail.Recipients.Add(adresse)
   
    nyMail.Subject = emne
    nyMail.body = body
   
'    nyAtt.Add vedhft
   
    nyMail.Display
    Exit Sub
   
sendMailFejl:
    Stop
    Resume Next
End Sub

Hey Supertekst,
Mange tak for svaret på ovenstående spørgsmål, jeg har ikke haft lejlighed til at afprøve koden i nu da jeg lige er kommmet hjem fra hospitalet, er lige blevet far for anden gang så må VBA koder jo kommer i 2 række (-: Jeg vender hurtigt tilbage når jeg inden så længe får testen det på min fil men jeg regner jo med at det virker (-:

Hygge

Ok & til lykke med det...

Hey Supertekst,
Så er det slut med barsel og tilbage til Excel klaveret (-:, har prøvet at kopier din kode ind i min fil men det fejler der hvor der står:
Private Sub sendMail(adresse)

fejlkoden er nedenstående:

Compile error:
Member already exists in an object module derives

Kan du knække den kode ?? Ser frem til at høre fra dig
Hygge hilsen fesser

Ser på det i løbet af weekenden....

Prøv at sende din fil til mig. MailAdr iflg. "Min profil"

Hey Supertekst, helt kanon... jeg har sendt filen til dig.

Hygge

Opgaven er fuldført til UG slange.... Tusind tak for hjælpen