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

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

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=4155
Udskrevet den: 27.Apr.2024 kl. 17:06

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

Besked fra: Christian
Emne: Outlook - Videresend vedhæftet og markér som læst
Posteringsdato: 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

Set objItem = Nothing

Set objmsg = Nothing

End Sub

Med venlig hilsen

Christian

Svar:

Besked fra: icet
Posteringsdato: 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