Navigation

   Hej,
Jeg ved godt det måske ikke hører til i et regnearks forum, men jeg forsøger mig alligevel, fordi jeg ved i er nogle vba hajer herinde.

Jeg er i gang med at få outlook til kun at videresende den vedhæftede fil i de mails der er markeret. Det har jeg umiddelbart fået til at virke, men den efterlader mailen ulæst. Jeg ved at det er fordi at jeg under indstillingerne for læserude har slået "Markér elementet som læst, når markeringen ændres" fra.

Er det muligt at tvinge den til at markere den som læst, efter den er videresendt?

Nedenstående er den kode jeg har fundet og tilpasset en smule, så den kun sendte den vedhæftede fil videre:

Sub ForwardAttachInvoice()

On Error Resume Next
Dim myolApp As Outlook.Application
Dim objItem As Outlook.MailItem

Set objOL = CreateObject("Outlook.Application")

If objOL.ActiveExplorer.Selection.Count = 0 Then
   MsgBox ("No item selected")
   Exit Sub
End If

For Each objItem In objOL.ActiveExplorer.Selection
    Set objmsg = objItem.Forward()
    With objmsg
        .Display
        For Each itm In objOL.ActiveExplorer.Selection
        .Attachments.Add olEmbeddeditem
        Next itm
        '.To = "email@email.dk"
        .Body = "Dankortbilag"
        .Send
    End With
Exit For
Next

Set objItem = Nothing
Set objmsg = Nothing

End Sub

Med venlig hilsen
Christian

Navigation

Outlook - Videresend vedhæftet og markér som læst