Outlook2000 e account imap (posta inviata)

[som]

Ciao a tutti,
avrei la necessità di utilizzare Outlook2000 per la gestione di un paio di account imap.
Ho problemi per il salvataggio delle email inviate nell'opportuna cartella sul server imap perchè non riesco a creare una regola per il processamento delle email dopo l'invio che abbia una differenzazione in base all'account (cosa che invece si riesce a fare su outlook 2003)

Qualcuno ha qualche dritta da darmi? Conoscete qualche plugin che possa aiutarmi?

grazie.

[bebeto]

anche su outlook XP funziona bene

non c'è all'inizio della creazione della regola la possibilità di impostare l'account ?

[som]

No... da nessuna parte. In Xp a che punto ti chiede di scegliere l'account?

Ora sto provando ad utilizzare una macro in VBA...funziona ma ogni volta che viene attivata all'invio di un messaggio compare un fastidiosissimo warning:


"Un programma sta tentando di accedere agli indirizzi di posta elettronica memorizzati in Outlook. Consentire l'operazione? Se l'operazione non è prevista, potrebbe trattarsi di un virus, pertanto scegliere "No".


A cui bisogna rispondere Sì, altrimenti l'esecuzione viene bloccata.

Qualcuno che se ne intende di VBA?


Public WithEvents myOlItems As Outlook.Items

Public Sub Application_Startup()

' Reference the items in the Inbox. Because myOlItems is declared
' "WithEvents" the ItemAdd event will fire below.
Set myOlItems = Outlook.Session.GetDefaultFolder(olFolderSentMail).Items

End Sub

Private Sub myOlItems_ItemAdd(ByVal Item As Object)
Dim olns As Outlook.NameSpace

Dim ol As New Outlook.Application
Set olns = ol.GetNamespace("MAPI")

Dim oConItems As Outlook.Items
Dim iNumItems As Integer

Dim sSender As String

Dim myCal As MAPIFolder

' SELEZIONE CARTELLA ORIGINE -> POSTA INVIATA
Set oInboxItems = Application.GetNamespace("MAPI") _
.GetDefaultFolder(FolderType:=olFolderSentMail).Items

Set objTargetFolder1 = olns.Folders("IMAPACCOUNT1").Folders("Posta inviata")

Set objTargetFolder2 = olns.Folders("IMAPACCOUNT2").Folders("Posta inviata")

iNumItems = oInboxItems.Count

For I = iNumItems To 1 Step -1
Set objCurItem = oInboxItems.Item(I)
If TypeName(objCurItem) = "MailItem" Then
sSender = objCurItem.SenderName

If sSender = "NOME1" Then
objCurItem.Move objTargetFolder1
ElseIf sSender = "NOME2" Then
objCurItem.Move objTargetFolder2
End If

End If
Next

' MsgBox "Finished moving items."

Set objInboxItems = Nothing
Set objTargetFolder1 = Nothing
Set objTargetFolder2 = Nothing
Set objNS = Nothing
Set olns = Nothing
Set ol = Nothing

End Sub

[bebeto]

No... da nessuna parte. In Xp a che punto ti chiede di scegliere l'account?

- clicco su "creazione guidata regole"
- si apre la finestra e scelgo "nuova"
- scelgo "inizia da una regola nuova" e scelgo l'opzione "controlla i messaggi dopo l'invio"
- "avanti"
- spunto la voce "controlla i messaggi dopo l'invio"
- "avanti"
spunto "tramite l'account specificata", puoi clicco su specificata e scelgo l'account
-"avanti"
- spunto la voce "sposta una copia del messaggio nella cartella specificata, clicco su specificata e scelgo la cartella che mi interessa dall'elenco.

questo è il procedimento completo funzionante su office XP

[som]

grazie mille bebeto
la procedura è la stessa che riesco ad eseguire in outlook 2003, confermo che non esiste la possibilità di selezionare l'account in 2000. :(

[xcdegasp]

Esiste già un thread aperto per chiedere consigli, informazioni e assistenza su questo argomento, pertanto ti chiedo la gentilezza di usare quello

colgo l'occasione per ricordare l'esistenza del Discussioni ufficiali (http://www.hwupgrade.it/forum/showthread.php?t=1441896) nato con lo scopo d'agevolare le ricerche agli utenti :)

questo verrà chiuso essendo thread doppione :)