Søg
Avatar billede Webnoob Juniormester
09. februar 2023 - 13:32 Der er 5 kommentarer og
1 løsning

Outlook makro

Hej kloge hoved

Jeg har brug for en makro som flytte en mail fra min indbakke til en specifik undermappe.
Det skal kun være den mail som er markeret der skal flyttes og IKKE ud fra afsender eller emne.
Avatar billede kulawig Guru
09. februar 2023 - 15:49 #1
det kan nok gøres pænere

flytter valgt mail fra inbox til inbox\reklamer


Sub MoveItems()
Dim myNameSpace As Outlook.NameSpace
Dim myInbox As Outlook.Folder
Dim myDestFolder As Outlook.Folder
Dim myItems As Outlook.Items
Dim myItem As Object
Dim objItem As Outlook.MailItem


Set myNameSpace = Application.GetNamespace("MAPI")
Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)
Set myItems = myInbox.Items
Set myDestFolder = myInbox.Folders("reklamer")
  For Each objItem In Application.ActiveExplorer.Selection
  If myDestFolder.DefaultItemType = olMailItem Then
      If objItem.Class = olMail Then
        objItem.Move myDestFolder
        End If
          End If
Next


End Sub
Avatar billede Webnoob Juniormester
09. februar 2023 - 20:10 #2
Hvad nu hvis det er en subfolder til reklamer?
Avatar billede kulawig Guru
10. februar 2023 - 07:47 #3
du tænker Inbox\reklamer\subfolder
Avatar billede kulawig Guru
10. februar 2023 - 07:52 #4
Sub MoveItems()
Dim myNameSpace As Outlook.NameSpace
Dim myInbox As Outlook.Folder
Dim myDestFolder As Outlook.Folder
Dim myItems As Outlook.Items
Dim myItem As Object
Dim objItem As Outlook.MailItem


Set myNameSpace = Application.GetNamespace("MAPI")
Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)
Set myItems = myInbox.Items
Set myDestFolder = myInbox.Folders("reklamer").Folders("Subfolder")
  For Each objItem In Application.ActiveExplorer.Selection
  If myDestFolder.DefaultItemType = olMailItem Then
      If objItem.Class = olMail Then
        objItem.Move myDestFolder
        End If
          End If
Next


End Sub
Avatar billede kulawig Guru
16. februar 2023 - 15:33 #5
hov Webnoob du skal lige huske at acceptere svaret og lukke spørgsmålet hvis løsningen virkede for dig

mvh
Avatar billede Webnoob Juniormester
16. februar 2023 - 15:51 #6
Det er rigtigt, det har jeg glemt.
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra VBscript kategorien

Titel Indlæg Oprettet Seneste aktivitet
Ændre navn på folder Af bsn i VBscript 12 07/07/202312:45 09/07/202307:04
Sti / Filname med mellemrum ??? Af ksor i VBscript 10 07/10/202200:43 07/10/202215:40
GetLastRow - Google spreadsheet Af rickiegrayholm i VBscript 2 22/04/202213:23 22/04/202214:55
Batch fil Af BDV i VBscript 1 12/01/202210:00 12/01/202210:05
Søgning i tekst fil Af Murphy i VBscript 0 07/08/202019:59 -
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
28 min siden Tage et øjebliksbillede af en video som afspilles med vlc Af Malm i Windows
I dag 15:16 Bøvl med FTP og æ, ø og å Af andershl i Webservere
I går 23:48 Google Ads visning af annonce kun i dagtimer Af Strawberry i Søgemaskiner
I går 19:12 Sært problem med 5G netværk Af indicator72 i Wifi
12/1221:05 Klokkeslætsformat kort/langt Af ErikHg i Windows
White papers
Flere white papers »