Avatar billede TheresaD Juniormester
09. juli 2015 - 07:08 Der er 8 kommentarer og
2 løsninger

Hjælp til autimatisk at send mail via excel

Jeg har brug for hjælp til at lave en simpel mail reminder i Excel.

makroen skal køres hver gang arket åbnes.

Jeg ønsker følgende data i hver kolonne:

Kolonne A = Navn
Kolonne B = Sendt dato
Kolonne C = Rykker dato
Kolonne D = Skal rykkes
Kolonne E = Er blevet rykket
Kolonne E = email adresse

Når kolonne D siger den skal rykkes, så sender den automatisk en mail til den email adresse som står i den række, ud for kolonne E, samt efter den har sendt mailen udfylder kolonne E, med at den er blevet rykket.

Så næste gang arket bliver åbnet så sender den ikke mail ud til dem i kolonne E, hvor mailen allerede er blevet sendt.

Jeg ved ikke helt hvordan jeg skal løse den

Mvh
Theresa
Avatar billede supertekst Ekspert
09. juli 2015 - 11:08 #1
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
Avatar billede supertekst Ekspert
09. juli 2015 - 11:26 #2
ps.: @-adresse under min profil.
Avatar billede TheresaD Juniormester
09. juli 2015 - 12:51 #3
har sendt mail :) og tak, send point og du får dem
Avatar billede jjbirk Nybegynder
09. juli 2015 - 16:26 #4
Håber vi andre også kan hente det, har selv kikket efter noget næsten magen til.
Avatar billede kim1a Ekspert
09. juli 2015 - 16:47 #5
Supertekst begynd at bede om upload til gupl.dk fremfor at bede om mail.
Avatar billede supertekst Ekspert
09. juli 2015 - 16:53 #6
Det gør jeg også for det meste - det smuttede denne gang - beklager
Avatar billede supertekst Ekspert
10. august 2015 - 23:12 #7
Der manglede vist et svar..
Avatar billede KurtOA Praktikant
09. december 2015 - 15:12 #8
Løsningen til denne opgave ville jeg rigtig gerne se hvis det er muligt?
Mvh Kurt
Avatar billede supertekst Ekspert
09. december 2015 - 16:07 #9
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
Avatar billede KurtOA Praktikant
09. december 2015 - 16:22 #10
Ser ud til at det er lige det jeg søger!
1000 tak for lynhurtigt svar ;-)

mvh Kurt
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
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

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