StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

POOutlook 2003/VBA Movin E-Mails without changing the date
primarykey
Id
1033556
data
AcceptedAnswerId
1039106
AnswerCount
3
ClosedDate
CommentCount
6
CommunityOwnedDate
CreationDate
2009-06-23T16:04:41.613
FavoriteCount
1
LastActivityDate
2010-08-04T19:21:36.407
LastEditDate
2009-06-26T07:44:42.037
LastEditorUserId
54583
OwnerUserId
54583
ParentId
0
PostTypeId
1
Score
1
ViewCount
2955
LastEditorDisplayName
text
Body
I use a macro in outlook 2003 to move selected emails to a specific folder. The moving works, but unfortunately the received date is overwritten to the current time. Any idea on how to prevent this. I use this code: <pre><code>Sub verschiebenInOrdner() On Error Resume Next Dim objFolder As Outlook.MAPIFolder, objInbox As Outlook.MAPIFolder Dim objNS As Outlook.NameSpace, objItem As Outlook.MailItem Set objNS = Application.GetNamespace("MAPI") Set objInbox = objNS.GetDefaultFolder(olFolderInbox) Set objFolder = objNS.Folders.Item("2009").Folders.Item("In") If objFolder Is Nothing Then MsgBox "This folder doesn't exist!", vbOKOnly + vbExclamation, "INVALID FOLDER" End If If Application.ActiveExplorer.Selection.Count = 0 Then Exit Sub End If For Each objItem In Application.ActiveExplorer.Selection If objFolder.DefaultItemType = olMailItem Then If objItem.Class = olMail Then objItem.UnRead = False objItem.Move objFolder End If End If Next Set objItem = Nothing Set objFolder = Nothing Set objInbox = Nothing Set objNS = Nothing End Sub </code></pre> Thanks to the help of 76mel I came up with this: <pre><code> Sub verschiebenInArchiv() Dim Session As Redemption.rDOSession Dim objFolder As Redemption.RDOFolder Dim objItem As Outlook.MailItem Dim objItem2 As Redemption.RDOMail Set Session = CreateObject("Redemption.RDOSession") Session.Logon Set objFolder = Session.Stores.Item("2009").IPMRootFolder.Folders("In") If Application.ActiveExplorer.Selection.Count = 0 Then Exit Sub End If For Each objItem In Application.ActiveExplorer.Selection Set objItem2 = Session.GetMessageFromID(objItem.EntryID, Session.Stores.DefaultStore.EntryID) objItem2.Move objFolder Next End Sub </code></pre> This works when I am in my Inbox. Does anybody know how I can set the Store-ID in GetMessageFromID to the ID of the store in which my selection is made? Edit: Thanks 76mel, I am using objItem.Parent.StoreID now to get the current StoreID.
Tags
<email><vba><outlook>
Title
Outlook 2003/VBA Movin E-Mails without changing the date
singulars
PostAcceptedAnswerId
1. PO
 singulars
 PostTypePostTypeId
 PTAnswer
PostParentId
1. This table or related slice is empty.
PostTypePostTypeId
1. PTQuestion
UserLastEditorUserId
1. UScomputhomas
UserOwnerUserId
1. UScomputhomas
plurals
PostLinksPostIdRelatedPostId
1. This table or related slice is empty.
PostLinksRelatedPostIdPostId
1. PL
 singulars
 LinkTypeLinkTypeId
 LTLinked
PostsAcceptedAnswerId
1. This table or related slice is empty.
PostsParentIdCreationDate
1. PO
 singulars
 PostTypePostTypeId
 PTAnswer
2. PO
 singulars
 PostTypePostTypeId
 PTAnswer
3. PO
 singulars
 PostTypePostTypeId
 PTAnswer
VotesPostIdCreationDate
1. VO
 singulars
 PostPostId
 POOutlook 2003/VBA Movin E-Mails without changing the date
 UserUserId
 USHK_CH
 VoteTypeVoteTypeId
 VTFavorite
2. VO
 singulars
 PostPostId
 POOutlook 2003/VBA Movin E-Mails without changing the date
 UserUserId
 This table or related slice is empty.
 VoteTypeVoteTypeId
 VTUpMod
CommentsPostId

Querying!

Guidance

A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.