Avatar billede Fesser1910 Nybegynder
17. februar 2009 - 13:41 Der er 8 kommentarer og
1 løsning

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

Hej Eksperter,
Kan man få enten Excel eller outlook til at sende en mails såfremt en dato som står i kolonne K = dagsdato ? Funktionen skal være en reminder om, at man skal huske at bestille vare. Mail adresser findes ud fra den fundne dato og så i kolonne H. Man kan godt komme ud for, at der skal sendes flere mails da datoen kan fremkomme på flere varenr. Håber der er en VBA Haj som kan smide noget kode på sådan en lille hygge opgave (-:
Avatar billede supertekst Ekspert
17. februar 2009 - 23:12 #1
Kan godt lade sig gøre via VBA...

Vender tilbage i morgen.
Avatar billede supertekst Ekspert
17. februar 2009 - 23:36 #2
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
Avatar billede Fesser1910 Nybegynder
21. februar 2009 - 22:34 #3
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
Avatar billede supertekst Ekspert
22. februar 2009 - 12:57 #4
Ok & til lykke med det...
Avatar billede Fesser1910 Nybegynder
06. marts 2009 - 23:38 #5
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
Avatar billede supertekst Ekspert
07. marts 2009 - 00:17 #6
Ser på det i løbet af weekenden....
Avatar billede supertekst Ekspert
07. marts 2009 - 11:33 #7
Prøv at sende din fil til mig. MailAdr iflg. "Min profil"
Avatar billede Fesser1910 Nybegynder
08. marts 2009 - 22:40 #8
Hey Supertekst, helt kanon... jeg har sendt filen til dig.

Hygge
Avatar billede Fesser1910 Nybegynder
09. marts 2009 - 22:47 #9
Opgaven er fuldført til UG slange.... Tusind tak for hjælpen
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester