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]

Originariamente inviato da som

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 nato con lo scopo d'agevolare le ricerche agli utenti

questo verrà chiuso essendo thread doppione