Dim Initialer As String Dim Ang As String Dim StartTid As String Dim SlutTid As String Dim wshNetwork As IWshNetwork_Class 'network object i stedet for shell objekt Dim Cell As Range
Set wshNetwork = New IWshNetwork_Class Initialer = wshNetwork.UserName 'læs network.username - det svarer til NT loginnavn Set wshNetwork = Nothing
Dim appOutlook As Outlook.Application Set appOutlook = New Outlook.Application Dim mail As Outlook.AppointmentItem
For Each Cell In Range("omraade") If UCase(Trim(Cell.Text)) = UCase(Trim(Initialer)) Then 'flytter markeringen en til højre Ang = Cell.Offset(0, 1).Text StartTid = Cell.Offset(0, 2).Text SlutTid = Cell.Offset(0, 3).Text
' Her oprettes mødeindkaldelsen Set mail = appOutlook.CreateItem(olAppointmentItem) With mail .Subject = Ang .Start = StartTid .End = SlutTid .Display End With Set mail = Nothing End If Next
End Sub
Håber den kan bruges til noget.
Synes godt om
Ny brugerNybegynder
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.
