with - sending a email from excel vba

Outlook 2003/VBA Movin E-Mails sin cambiar la fecha

Question

Uso una macro en Outlook 2003 para mover los correos electrónicos seleccionados a una carpeta específica. El movimiento funciona, pero lamentablemente la fecha de recepción se sobrescribe a la hora actual. Alguna idea sobre cómo prevenir esto.

Yo uso este código:

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

Gracias a la ayuda de 76mel, se me ocurrió esto:

 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

Esto funciona cuando estoy en mi bandeja de entrada. ¿Alguien sabe cómo puedo configurar Store-ID en GetMessageFromID para el ID de la tienda en la que se realiza mi selección?

Editar: Gracias 76mel, estoy usando objItem.Parent.StoreID ahora para obtener el StoreID actual.

Answer 1

Encontré la solución: en la subcarpeta donde mueve el correo electrónico, simplemente agregue una columna para el campo "fecha de creación" en lugar de "fecha de recepción" y ordene con este campo ... ¡trabajo hecho!

Arrecife

Answer 2

Su derecha ha habido algunos informes en la red diciendo que no funciona.

Parecería que VB6 no genera un error :(. Creo que la forma de abordar esto sería usar CDO o el "Redemption" defacto de la tercera parte. Hacer el movimiento real en segundo plano.

METRO

Actualización: Pruebe algo como esto ... No tengo VB en la máquina, así que no lo he probado. Pero entenderá.

Sub verschiebenInOrdner()
On Error Resume Next
Dim objNS As Outlook.NameSpace
Dim objRDOSession As Redemption.RDOSession
Dim objRDOFolder As Redemption.RDOFolder
Dim objItem As Outlook.MailItem
Dim objRDOMail As Redemption.RDOMail
Set objNS = Application.GetNamespace("MAPI")
Set objRDOSession = CreateObject("Redemption.RDOSession")
objRDOSession.MAPIOBJECT = objNS.MAPIOBJECT ''or Logon
Set objRDOFolder = Session.GetFolderFromPath("<YOUR PATH>")
'' do your validation for folder and selection
For Each objItem In Application.ActiveExplorer.Selection
If objFolder.DefaultItemType = olMailItem Then
If objItem.Class = olMail Then
Set objRDOMail = objRDOSession.GetMessageFromID(objItem.EntryID)
objRDOMail.UnRead = False
objRDOMail.Move objRDOFolder
End If
End If
Next
Set objItem = Nothing
Set objRDOMail = Nothing
Set objRDOFolder = Nothing
Set objRDOSession = Nothing
Set objNS = Nothing
End Sub

Answer 3

Tampoco me cambia la fecha en Outlook 2003. Si es un problema continuo para usted, trataría de obtener la fecha del artículo y sobrescribirlo después de transferirlo.