Overføre data fra Excel til Outlook

Evt. ændre farven i Excel når dato er oveført.

Har du forslag til dels hvordan jeg laver makro til overførsel af data og dernæst hvordan jeg gør mht. farve som du foreslår ?

Vender tilbage senere...

Lav en markering i regnearket - i stedet for farve.
Det er lettere at aflæse celleindhold end anvendelse af farve.

Hvis du er interesseret i Excel-filen - så send en mail. @-adresse under min profil


Rem VBA-koden anbringes under arket med Opfølgningsinfo
Rem Reference sættes til Microsoft Outlook Object Library
Dim antalRækker As Long, ræk As Integer
Const farveErOprettet = 6
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Address = "$D$1" Then
        opretOpfølgOutlook
        Cancel = True
    End If
End Sub
Public Sub opretOpfølgOutlook()
    antalRækker = ActiveCell.SpecialCells(xlLastCell).Row
   
    For ræk = 2 To antalRækker
        If Range("D" & ræk).Interior.ColorIndex = xlColorIndexNone Then
            opretKalender Range("A" & ræk), Range("B" & ræk), Range("C" & ræk), Range("D" & ræk)
            Range("D" & ræk).Interior.ColorIndex = farveErOprettet
        End If
       
    Next ræk
End Sub
Private Sub opretKalender(Nr, kundeNavn, Mail, dato)
Dim olApp, Namespace, opfølgning
Dim f, dagFundet As Boolean

    Set olApp = CreateObject("Outlook.Application")
    Set Namespace = olApp.GetNamespace("MAPI")
    Set opfølgning = Namespace.GetDefaultFolder(olFolderCalendar).Items

    Set opfølgning = olApp.CreateItem(olAppointmentItem)

    opfølgning.Start = dato
    opfølgning.Subject = "Kontakt: " & Nr & " " & kundeNavn & " " & Mail
    opfølgning.Save
End Sub