Mon probleme est le suivant:
Topologie: 1 serveur SBS 2003 avec une dizaine de PC Windows XP Pro
Outlook 2003 sur les stations avec un compte POP par défaut
et un compte exchange 2003.
Une secrétaire envoie des new meeting aux autres users
Quand elle est dans 'onglet "Scheduling" elle sélectionne l'adresse interne
d'un user
et voit sur la droite les réunions déjà planifiées ce qui lui permet de voir
à quelle date elle peut proposer de nouvelles reunions à ce user.
Le user destinataire recoit bien la demande et fait un "Accept" ou autre.
Le probleme est que la secrétaire ne recoit pas de message en retour disant
que le user a accepté.
Ceci est dû au fait que c'est le compte pop qui est par défaut chez le user.
Si, avant de répondre, le user indique d'envoyer avec le compte exchange,
la secrétaire recoit bien la réponse.
Mais il est clair que le user ne pensera pas systematiquement a changer de
compte avant de repondre.
Donc existe t il un moyen pour que la secrétaire recoive les notifications
SANS que le user n'ait à changer de compte ?
C'est un peu comme si je demandais un moyen d'envoyer un email aux adresses
internes avec le compte pop par défaut sans avoir à sélectionner le compte
exchange lors de l'envoi.
PS: je sais que SBS a un connecteur POP3 mais inutile de me parler de ca,
cela ne va pas avec la facon de travailler du client car il doit pouvoir
accéder a ces emails de l'exterieur sur un Webmail quand il n'est pas au
bureau. Pas d' OWA non plus
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Benoit Gambier [MS]
Bonjour,
Les meeting requests étant liés au compte exchange, il est indispensable que les réponses soient faîtes avec le compte Exchange.
Sachant celà, deux solutions sont possibles :
- Sélectionner manuellement le compte - Utiliser le compte Exchange comme compte par défaut.
Cordialement
Benoit Gambier
"ericb" wrote in message news:
Bonjour,
Mon probleme est le suivant: Topologie: 1 serveur SBS 2003 avec une dizaine de PC Windows XP Pro Outlook 2003 sur les stations avec un compte POP par défaut et un compte exchange 2003.
Une secrétaire envoie des new meeting aux autres users Quand elle est dans 'onglet "Scheduling" elle sélectionne l'adresse interne d'un user et voit sur la droite les réunions déjà planifiées ce qui lui permet de voir à quelle date elle peut proposer de nouvelles reunions à ce user. Le user destinataire recoit bien la demande et fait un "Accept" ou autre. Le probleme est que la secrétaire ne recoit pas de message en retour disant que le user a accepté. Ceci est dû au fait que c'est le compte pop qui est par défaut chez le user. Si, avant de répondre, le user indique d'envoyer avec le compte exchange, la secrétaire recoit bien la réponse.
Mais il est clair que le user ne pensera pas systematiquement a changer de compte avant de repondre.
Donc existe t il un moyen pour que la secrétaire recoive les notifications SANS que le user n'ait à changer de compte ?
C'est un peu comme si je demandais un moyen d'envoyer un email aux adresses internes avec le compte pop par défaut sans avoir à sélectionner le compte exchange lors de l'envoi.
PS: je sais que SBS a un connecteur POP3 mais inutile de me parler de ca, cela ne va pas avec la facon de travailler du client car il doit pouvoir accéder a ces emails de l'exterieur sur un Webmail quand il n'est pas au bureau. Pas d' OWA non plus
Merci pour vos reponses.
Bonjour,
Les meeting requests étant liés au compte exchange, il est indispensable que
les réponses soient faîtes avec le compte Exchange.
Sachant celà, deux solutions sont possibles :
- Sélectionner manuellement le compte
- Utiliser le compte Exchange comme compte par défaut.
Cordialement
Benoit Gambier
"ericb" <ano@nymous.fr> wrote in message
news:OyxlmBn0GHA.4312@TK2MSFTNGP02.phx.gbl...
Bonjour,
Mon probleme est le suivant:
Topologie: 1 serveur SBS 2003 avec une dizaine de PC Windows XP Pro
Outlook 2003 sur les stations avec un compte POP par
défaut
et un compte exchange 2003.
Une secrétaire envoie des new meeting aux autres users
Quand elle est dans 'onglet "Scheduling" elle sélectionne l'adresse
interne d'un user
et voit sur la droite les réunions déjà planifiées ce qui lui permet de
voir à quelle date elle peut proposer de nouvelles reunions à ce user.
Le user destinataire recoit bien la demande et fait un "Accept" ou autre.
Le probleme est que la secrétaire ne recoit pas de message en retour
disant que le user a accepté.
Ceci est dû au fait que c'est le compte pop qui est par défaut chez le
user.
Si, avant de répondre, le user indique d'envoyer avec le compte exchange,
la secrétaire recoit bien la réponse.
Mais il est clair que le user ne pensera pas systematiquement a changer de
compte avant de repondre.
Donc existe t il un moyen pour que la secrétaire recoive les notifications
SANS que le user n'ait à changer de compte ?
C'est un peu comme si je demandais un moyen d'envoyer un email aux
adresses internes avec le compte pop par défaut sans avoir à sélectionner
le compte exchange lors de l'envoi.
PS: je sais que SBS a un connecteur POP3 mais inutile de me parler de ca,
cela ne va pas avec la facon de travailler du client car il doit pouvoir
accéder a ces emails de l'exterieur sur un Webmail quand il n'est pas au
bureau. Pas d' OWA non plus
Les meeting requests étant liés au compte exchange, il est indispensable que les réponses soient faîtes avec le compte Exchange.
Sachant celà, deux solutions sont possibles :
- Sélectionner manuellement le compte - Utiliser le compte Exchange comme compte par défaut.
Cordialement
Benoit Gambier
"ericb" wrote in message news:
Bonjour,
Mon probleme est le suivant: Topologie: 1 serveur SBS 2003 avec une dizaine de PC Windows XP Pro Outlook 2003 sur les stations avec un compte POP par défaut et un compte exchange 2003.
Une secrétaire envoie des new meeting aux autres users Quand elle est dans 'onglet "Scheduling" elle sélectionne l'adresse interne d'un user et voit sur la droite les réunions déjà planifiées ce qui lui permet de voir à quelle date elle peut proposer de nouvelles reunions à ce user. Le user destinataire recoit bien la demande et fait un "Accept" ou autre. Le probleme est que la secrétaire ne recoit pas de message en retour disant que le user a accepté. Ceci est dû au fait que c'est le compte pop qui est par défaut chez le user. Si, avant de répondre, le user indique d'envoyer avec le compte exchange, la secrétaire recoit bien la réponse.
Mais il est clair que le user ne pensera pas systematiquement a changer de compte avant de repondre.
Donc existe t il un moyen pour que la secrétaire recoive les notifications SANS que le user n'ait à changer de compte ?
C'est un peu comme si je demandais un moyen d'envoyer un email aux adresses internes avec le compte pop par défaut sans avoir à sélectionner le compte exchange lors de l'envoi.
PS: je sais que SBS a un connecteur POP3 mais inutile de me parler de ca, cela ne va pas avec la facon de travailler du client car il doit pouvoir accéder a ces emails de l'exterieur sur un Webmail quand il n'est pas au bureau. Pas d' OWA non plus
Merci pour vos reponses.
ericb
Et m..... Ne peut on pas forcer outlook a utiliser le compte exchange pour cette fonction ?
Merci pour votre réponse en tout cas.
"Benoit Gambier [MS]" wrote in message news:
Bonjour,
Les meeting requests étant liés au compte exchange, il est indispensable que les réponses soient faîtes avec le compte Exchange.
Sachant celà, deux solutions sont possibles :
- Sélectionner manuellement le compte - Utiliser le compte Exchange comme compte par défaut.
Cordialement
Benoit Gambier
"ericb" wrote in message news:
Bonjour,
Mon probleme est le suivant: Topologie: 1 serveur SBS 2003 avec une dizaine de PC Windows XP Pro Outlook 2003 sur les stations avec un compte POP par défaut et un compte exchange 2003.
Une secrétaire envoie des new meeting aux autres users Quand elle est dans 'onglet "Scheduling" elle sélectionne l'adresse interne d'un user et voit sur la droite les réunions déjà planifiées ce qui lui permet de voir à quelle date elle peut proposer de nouvelles reunions à ce user. Le user destinataire recoit bien la demande et fait un "Accept" ou autre. Le probleme est que la secrétaire ne recoit pas de message en retour disant que le user a accepté. Ceci est dû au fait que c'est le compte pop qui est par défaut chez le user. Si, avant de répondre, le user indique d'envoyer avec le compte exchange, la secrétaire recoit bien la réponse.
Mais il est clair que le user ne pensera pas systematiquement a changer de compte avant de repondre.
Donc existe t il un moyen pour que la secrétaire recoive les notifications SANS que le user n'ait à changer de compte ?
C'est un peu comme si je demandais un moyen d'envoyer un email aux adresses internes avec le compte pop par défaut sans avoir à sélectionner le compte exchange lors de l'envoi.
PS: je sais que SBS a un connecteur POP3 mais inutile de me parler de ca, cela ne va pas avec la facon de travailler du client car il doit pouvoir accéder a ces emails de l'exterieur sur un Webmail quand il n'est pas au bureau. Pas d' OWA non plus
Merci pour vos reponses.
Et m.....
Ne peut on pas forcer outlook a utiliser le compte exchange pour cette
fonction ?
Merci pour votre réponse en tout cas.
"Benoit Gambier [MS]" <bgambier@online.microsoft.com> wrote in message
news:uufZMFn0GHA.3464@TK2MSFTNGP03.phx.gbl...
Bonjour,
Les meeting requests étant liés au compte exchange, il est indispensable
que les réponses soient faîtes avec le compte Exchange.
Sachant celà, deux solutions sont possibles :
- Sélectionner manuellement le compte
- Utiliser le compte Exchange comme compte par défaut.
Cordialement
Benoit Gambier
"ericb" <ano@nymous.fr> wrote in message
news:OyxlmBn0GHA.4312@TK2MSFTNGP02.phx.gbl...
Bonjour,
Mon probleme est le suivant:
Topologie: 1 serveur SBS 2003 avec une dizaine de PC Windows XP Pro
Outlook 2003 sur les stations avec un compte POP par
défaut
et un compte exchange 2003.
Une secrétaire envoie des new meeting aux autres users
Quand elle est dans 'onglet "Scheduling" elle sélectionne l'adresse
interne d'un user
et voit sur la droite les réunions déjà planifiées ce qui lui permet de
voir à quelle date elle peut proposer de nouvelles reunions à ce user.
Le user destinataire recoit bien la demande et fait un "Accept" ou autre.
Le probleme est que la secrétaire ne recoit pas de message en retour
disant que le user a accepté.
Ceci est dû au fait que c'est le compte pop qui est par défaut chez le
user.
Si, avant de répondre, le user indique d'envoyer avec le compte exchange,
la secrétaire recoit bien la réponse.
Mais il est clair que le user ne pensera pas systematiquement a changer
de compte avant de repondre.
Donc existe t il un moyen pour que la secrétaire recoive les
notifications SANS que le user n'ait à changer de compte ?
C'est un peu comme si je demandais un moyen d'envoyer un email aux
adresses internes avec le compte pop par défaut sans avoir à sélectionner
le compte exchange lors de l'envoi.
PS: je sais que SBS a un connecteur POP3 mais inutile de me parler de ca,
cela ne va pas avec la facon de travailler du client car il doit pouvoir
accéder a ces emails de l'exterieur sur un Webmail quand il n'est pas au
bureau. Pas d' OWA non plus
Et m..... Ne peut on pas forcer outlook a utiliser le compte exchange pour cette fonction ?
Merci pour votre réponse en tout cas.
"Benoit Gambier [MS]" wrote in message news:
Bonjour,
Les meeting requests étant liés au compte exchange, il est indispensable que les réponses soient faîtes avec le compte Exchange.
Sachant celà, deux solutions sont possibles :
- Sélectionner manuellement le compte - Utiliser le compte Exchange comme compte par défaut.
Cordialement
Benoit Gambier
"ericb" wrote in message news:
Bonjour,
Mon probleme est le suivant: Topologie: 1 serveur SBS 2003 avec une dizaine de PC Windows XP Pro Outlook 2003 sur les stations avec un compte POP par défaut et un compte exchange 2003.
Une secrétaire envoie des new meeting aux autres users Quand elle est dans 'onglet "Scheduling" elle sélectionne l'adresse interne d'un user et voit sur la droite les réunions déjà planifiées ce qui lui permet de voir à quelle date elle peut proposer de nouvelles reunions à ce user. Le user destinataire recoit bien la demande et fait un "Accept" ou autre. Le probleme est que la secrétaire ne recoit pas de message en retour disant que le user a accepté. Ceci est dû au fait que c'est le compte pop qui est par défaut chez le user. Si, avant de répondre, le user indique d'envoyer avec le compte exchange, la secrétaire recoit bien la réponse.
Mais il est clair que le user ne pensera pas systematiquement a changer de compte avant de repondre.
Donc existe t il un moyen pour que la secrétaire recoive les notifications SANS que le user n'ait à changer de compte ?
C'est un peu comme si je demandais un moyen d'envoyer un email aux adresses internes avec le compte pop par défaut sans avoir à sélectionner le compte exchange lors de l'envoi.
PS: je sais que SBS a un connecteur POP3 mais inutile de me parler de ca, cela ne va pas avec la facon de travailler du client car il doit pouvoir accéder a ces emails de l'exterieur sur un Webmail quand il n'est pas au bureau. Pas d' OWA non plus
Merci pour vos reponses.
Benoit Gambier [MS]
Bonjour,
A ma connaissance, non, désolé.
Cordialement
Benoit Gambier
"ericb" wrote in message news:
Et m..... Ne peut on pas forcer outlook a utiliser le compte exchange pour cette fonction ?
Merci pour votre réponse en tout cas.
"Benoit Gambier [MS]" wrote in message news:
Bonjour,
Les meeting requests étant liés au compte exchange, il est indispensable que les réponses soient faîtes avec le compte Exchange.
Sachant celà, deux solutions sont possibles :
- Sélectionner manuellement le compte - Utiliser le compte Exchange comme compte par défaut.
Cordialement
Benoit Gambier
"ericb" wrote in message news:
Bonjour,
Mon probleme est le suivant: Topologie: 1 serveur SBS 2003 avec une dizaine de PC Windows XP Pro Outlook 2003 sur les stations avec un compte POP par défaut et un compte exchange 2003.
Une secrétaire envoie des new meeting aux autres users Quand elle est dans 'onglet "Scheduling" elle sélectionne l'adresse interne d'un user et voit sur la droite les réunions déjà planifiées ce qui lui permet de voir à quelle date elle peut proposer de nouvelles reunions à ce user. Le user destinataire recoit bien la demande et fait un "Accept" ou autre. Le probleme est que la secrétaire ne recoit pas de message en retour disant que le user a accepté. Ceci est dû au fait que c'est le compte pop qui est par défaut chez le user. Si, avant de répondre, le user indique d'envoyer avec le compte exchange, la secrétaire recoit bien la réponse.
Mais il est clair que le user ne pensera pas systematiquement a changer de compte avant de repondre.
Donc existe t il un moyen pour que la secrétaire recoive les notifications SANS que le user n'ait à changer de compte ?
C'est un peu comme si je demandais un moyen d'envoyer un email aux adresses internes avec le compte pop par défaut sans avoir à sélectionner le compte exchange lors de l'envoi.
PS: je sais que SBS a un connecteur POP3 mais inutile de me parler de ca, cela ne va pas avec la facon de travailler du client car il doit pouvoir accéder a ces emails de l'exterieur sur un Webmail quand il n'est pas au bureau. Pas d' OWA non plus
Merci pour vos reponses.
Bonjour,
A ma connaissance, non, désolé.
Cordialement
Benoit Gambier
"ericb" <ano@nymous.fr> wrote in message
news:ursWRJn0GHA.1256@TK2MSFTNGP04.phx.gbl...
Et m.....
Ne peut on pas forcer outlook a utiliser le compte exchange pour cette
fonction ?
Merci pour votre réponse en tout cas.
"Benoit Gambier [MS]" <bgambier@online.microsoft.com> wrote in message
news:uufZMFn0GHA.3464@TK2MSFTNGP03.phx.gbl...
Bonjour,
Les meeting requests étant liés au compte exchange, il est indispensable
que les réponses soient faîtes avec le compte Exchange.
Sachant celà, deux solutions sont possibles :
- Sélectionner manuellement le compte
- Utiliser le compte Exchange comme compte par défaut.
Cordialement
Benoit Gambier
"ericb" <ano@nymous.fr> wrote in message
news:OyxlmBn0GHA.4312@TK2MSFTNGP02.phx.gbl...
Bonjour,
Mon probleme est le suivant:
Topologie: 1 serveur SBS 2003 avec une dizaine de PC Windows XP Pro
Outlook 2003 sur les stations avec un compte POP par
défaut
et un compte exchange 2003.
Une secrétaire envoie des new meeting aux autres users
Quand elle est dans 'onglet "Scheduling" elle sélectionne l'adresse
interne d'un user
et voit sur la droite les réunions déjà planifiées ce qui lui permet de
voir à quelle date elle peut proposer de nouvelles reunions à ce user.
Le user destinataire recoit bien la demande et fait un "Accept" ou
autre.
Le probleme est que la secrétaire ne recoit pas de message en retour
disant que le user a accepté.
Ceci est dû au fait que c'est le compte pop qui est par défaut chez le
user.
Si, avant de répondre, le user indique d'envoyer avec le compte
exchange,
la secrétaire recoit bien la réponse.
Mais il est clair que le user ne pensera pas systematiquement a changer
de compte avant de repondre.
Donc existe t il un moyen pour que la secrétaire recoive les
notifications SANS que le user n'ait à changer de compte ?
C'est un peu comme si je demandais un moyen d'envoyer un email aux
adresses internes avec le compte pop par défaut sans avoir à
sélectionner le compte exchange lors de l'envoi.
PS: je sais que SBS a un connecteur POP3 mais inutile de me parler de
ca, cela ne va pas avec la facon de travailler du client car il doit
pouvoir accéder a ces emails de l'exterieur sur un Webmail quand il
n'est pas au bureau. Pas d' OWA non plus
Et m..... Ne peut on pas forcer outlook a utiliser le compte exchange pour cette fonction ?
Merci pour votre réponse en tout cas.
"Benoit Gambier [MS]" wrote in message news:
Bonjour,
Les meeting requests étant liés au compte exchange, il est indispensable que les réponses soient faîtes avec le compte Exchange.
Sachant celà, deux solutions sont possibles :
- Sélectionner manuellement le compte - Utiliser le compte Exchange comme compte par défaut.
Cordialement
Benoit Gambier
"ericb" wrote in message news:
Bonjour,
Mon probleme est le suivant: Topologie: 1 serveur SBS 2003 avec une dizaine de PC Windows XP Pro Outlook 2003 sur les stations avec un compte POP par défaut et un compte exchange 2003.
Une secrétaire envoie des new meeting aux autres users Quand elle est dans 'onglet "Scheduling" elle sélectionne l'adresse interne d'un user et voit sur la droite les réunions déjà planifiées ce qui lui permet de voir à quelle date elle peut proposer de nouvelles reunions à ce user. Le user destinataire recoit bien la demande et fait un "Accept" ou autre. Le probleme est que la secrétaire ne recoit pas de message en retour disant que le user a accepté. Ceci est dû au fait que c'est le compte pop qui est par défaut chez le user. Si, avant de répondre, le user indique d'envoyer avec le compte exchange, la secrétaire recoit bien la réponse.
Mais il est clair que le user ne pensera pas systematiquement a changer de compte avant de repondre.
Donc existe t il un moyen pour que la secrétaire recoive les notifications SANS que le user n'ait à changer de compte ?
C'est un peu comme si je demandais un moyen d'envoyer un email aux adresses internes avec le compte pop par défaut sans avoir à sélectionner le compte exchange lors de l'envoi.
PS: je sais que SBS a un connecteur POP3 mais inutile de me parler de ca, cela ne va pas avec la facon de travailler du client car il doit pouvoir accéder a ces emails de l'exterieur sur un Webmail quand il n'est pas au bureau. Pas d' OWA non plus
Merci pour vos reponses.
Oliv'
*ericb que je salut a écrit *:
Et m..... Ne peut on pas forcer outlook a utiliser le compte exchange pour cette fonction ?
Merci pour votre réponse en tout cas. oui tu peux avec un macro et je vais te donner la plus grosse partie du code
;-)))
tu dois tester dans l'événement Itemsend (recherche dans l'aide tu auras le code.)
quelque chose dans ton mail qui se vérifie pour cette fonction (le destinataire par exemple ) et executer la fonction voir exemple en bas
ca marche ?
après faux déployer sur chaque poste revient si tu veux de l'aide
Function Set_Account(ByVal AccountName As String, M As Outlook.MailItem) As String 'by sue mosher feat. oliv'
Dim OLI As Outlook.Inspector Dim strAccountBtnName As String Dim intLoc As Integer Const ID_ACCOUNTS = 31224
Dim CBs As Office.CommandBars Dim CBP As Office.CommandBarPopup Dim MC As Office.CommandBarControl
Set OLI = M.GetInspector If Not OLI Is Nothing Then Set CBs = OLI.CommandBars Set CBP = CBs.FindControl(, ID_ACCOUNTS) CBP.Reset
If Not CBP Is Nothing Then For Each MC In CBP.Controls intLoc = InStr(MC.Caption, " ") If intLoc > 0 Then strAccountBtnName = Mid(MC.Caption, intLoc + 1) Else strAccountBtnName = MC.Caption End If If strAccountBtnName = AccountName Then
MC.Execute Set_Account = AccountName GoTo Exit_Function End If Next End If End If Set_Account = ""
Exit_Function: Set MC = Nothing Set CBP = Nothing Set CBs = Nothing Set OLI = Nothing End Function
Sub test_account_easy() Dim oitem As Outlook.MailItem Set oitem = ActiveInspector.CurrentItem MsgBox oitem.Recipients.Count & " destinataires" Dim toto For Each toto In oitem.Recipients If toto.Address Like "/o=SERVEUR/ou=SITE/cn=Recipients/cn=*" Or toto.Address Like "*@mondomaine.fr*" Then ici = True MsgBox toto.Address Else: ici = False Exit For End If Next toto If Not ici = True Then go = Set_Account("pop.easynet.fr", oitem) Else go = Set_Account("Serveur Microsoft Exchange", oitem) End If End Sub
Sub test_account_free() Dim oitem As Outlook.MailItem Set oitem = ActiveInspector.CurrentItem
go = Set_Account("pop.freesurf.fr", oitem)
End Sub
Sub test_account_exch() Dim oitem As Outlook.MailItem Set oitem = ActiveInspector.CurrentItem go = Set_Account("Serveur Microsoft Exchange", oitem)
End Sub
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 les sites références: Excel :http://www.excelabo.net http://xcell05.free.fr/ http://dj.joss.free.fr/ http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/ Word : http://faqword.free.fr/ Outlook : http://faq.outlook.free.fr/ les archives : http://groups.google.com/group/microsoft.public.fr.outlook OE6 : http://www.faqoe.com/ Sql : http://sqlpro.developpez.com/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
*ericb <ano@nymous.fr> que je salut a écrit *:
Et m.....
Ne peut on pas forcer outlook a utiliser le compte exchange pour cette
fonction ?
Merci pour votre réponse en tout cas.
oui tu peux avec un macro et je vais te donner la plus grosse partie du code
;-)))
tu dois tester dans l'événement Itemsend (recherche dans l'aide tu auras le
code.)
quelque chose dans ton mail qui se vérifie pour cette fonction (le
destinataire par exemple )
et executer la fonction voir exemple en bas
ca marche ?
après faux déployer sur chaque poste
revient si tu veux de l'aide
Function Set_Account(ByVal AccountName As String, M As Outlook.MailItem) As
String
'by sue mosher feat. oliv'
Dim OLI As Outlook.Inspector
Dim strAccountBtnName As String
Dim intLoc As Integer
Const ID_ACCOUNTS = 31224
Dim CBs As Office.CommandBars
Dim CBP As Office.CommandBarPopup
Dim MC As Office.CommandBarControl
Set OLI = M.GetInspector
If Not OLI Is Nothing Then
Set CBs = OLI.CommandBars
Set CBP = CBs.FindControl(, ID_ACCOUNTS)
CBP.Reset
If Not CBP Is Nothing Then
For Each MC In CBP.Controls
intLoc = InStr(MC.Caption, " ")
If intLoc > 0 Then
strAccountBtnName = Mid(MC.Caption, intLoc + 1)
Else
strAccountBtnName = MC.Caption
End If
If strAccountBtnName = AccountName Then
MC.Execute
Set_Account = AccountName
GoTo Exit_Function
End If
Next
End If
End If
Set_Account = ""
Exit_Function:
Set MC = Nothing
Set CBP = Nothing
Set CBs = Nothing
Set OLI = Nothing
End Function
Sub test_account_easy()
Dim oitem As Outlook.MailItem
Set oitem = ActiveInspector.CurrentItem
MsgBox oitem.Recipients.Count & " destinataires"
Dim toto
For Each toto In oitem.Recipients
If toto.Address Like "/o=SERVEUR/ou=SITE/cn=Recipients/cn=*" Or
toto.Address Like "*@mondomaine.fr*" Then
ici = True
MsgBox toto.Address
Else:
ici = False
Exit For
End If
Next toto
If Not ici = True Then
go = Set_Account("pop.easynet.fr", oitem)
Else
go = Set_Account("Serveur Microsoft Exchange", oitem)
End If
End Sub
Sub test_account_free()
Dim oitem As Outlook.MailItem
Set oitem = ActiveInspector.CurrentItem
go = Set_Account("pop.freesurf.fr", oitem)
End Sub
Sub test_account_exch()
Dim oitem As Outlook.MailItem
Set oitem = ActiveInspector.CurrentItem
go = Set_Account("Serveur Microsoft Exchange", oitem)
End Sub
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook : http://faq.outlook.free.fr/
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
OE6 : http://www.faqoe.com/
Sql : http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Function Set_Account(ByVal AccountName As String, M As Outlook.MailItem) As String 'by sue mosher feat. oliv'
Dim OLI As Outlook.Inspector Dim strAccountBtnName As String Dim intLoc As Integer Const ID_ACCOUNTS = 31224
Dim CBs As Office.CommandBars Dim CBP As Office.CommandBarPopup Dim MC As Office.CommandBarControl
Set OLI = M.GetInspector If Not OLI Is Nothing Then Set CBs = OLI.CommandBars Set CBP = CBs.FindControl(, ID_ACCOUNTS) CBP.Reset
If Not CBP Is Nothing Then For Each MC In CBP.Controls intLoc = InStr(MC.Caption, " ") If intLoc > 0 Then strAccountBtnName = Mid(MC.Caption, intLoc + 1) Else strAccountBtnName = MC.Caption End If If strAccountBtnName = AccountName Then
MC.Execute Set_Account = AccountName GoTo Exit_Function End If Next End If End If Set_Account = ""
Exit_Function: Set MC = Nothing Set CBP = Nothing Set CBs = Nothing Set OLI = Nothing End Function
Sub test_account_easy() Dim oitem As Outlook.MailItem Set oitem = ActiveInspector.CurrentItem MsgBox oitem.Recipients.Count & " destinataires" Dim toto For Each toto In oitem.Recipients If toto.Address Like "/o=SERVEUR/ou=SITE/cn=Recipients/cn=*" Or toto.Address Like "*@mondomaine.fr*" Then ici = True MsgBox toto.Address Else: ici = False Exit For End If Next toto If Not ici = True Then go = Set_Account("pop.easynet.fr", oitem) Else go = Set_Account("Serveur Microsoft Exchange", oitem) End If End Sub
Sub test_account_free() Dim oitem As Outlook.MailItem Set oitem = ActiveInspector.CurrentItem
go = Set_Account("pop.freesurf.fr", oitem)
End Sub
Sub test_account_exch() Dim oitem As Outlook.MailItem Set oitem = ActiveInspector.CurrentItem go = Set_Account("Serveur Microsoft Exchange", oitem)
End Sub
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 les sites références: Excel :http://www.excelabo.net http://xcell05.free.fr/ http://dj.joss.free.fr/ http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/ Word : http://faqword.free.fr/ Outlook : http://faq.outlook.free.fr/ les archives : http://groups.google.com/group/microsoft.public.fr.outlook OE6 : http://www.faqoe.com/ Sql : http://sqlpro.developpez.com/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
