Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


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

 Besvar Besvar
Forfatter
Christian Se dropdown
Bronze bruger
Bronze bruger


Medlem: 25.Jan.2011
Status: Offline
Point: 30
Direkte link til dette indlæg Emne: Outlook - Videresend vedhæftet og markér som læst
    Sendt: 31.Jan.2020 kl. 12:04
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
Til top



Til top
icet Se dropdown
Bronze bruger
Bronze bruger


Medlem: 08.Nov.2013
Status: Offline
Point: 95
Direkte link til dette indlæg Sendt: 01.Feb.2020 kl. 11:10
tyv lånt efter en søgning på google...

'mark all as read in a particular folder.
If flr.Name = "Your folder name" Then
For Each objMailItem In flr.Items
'If objMailItem.SenderName = "Spammer Name" Then

If objMailItem.UnRead = True Then
objMailItem.UnRead = False
End If

tænker der er noget der kan bruges Smile
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk