[VB Outlook] Changer de compte de messagerie au moment de l'envoi

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VB Outlook] Changer de compte de messagerie au moment de l'envoi

tuxbleu

renie ses origines

Bonjour

Sur mon Outlook, je possède 2 comptes : Un compte nommé "Mail" qui est de type pop3, et un compte nommé "Messagerie interne" qui est un compte Exchange.

Je cherche, en fonction de l'adresse de destination de mon mail, choisir à la place de l'utilisateur quel compte va etre utilisé.
J'ai fais "google est mon ami", j'ai trouvé des brides de codes qui semblent prometteuses, pas d'erreur à l'exécution, je défile pas à pas le code, tout semple se passer correctement (le test pour chosir quel compte de messagerie est correcte) mais le mail est toujours envoyé avec le compte de messagerie pas défaut.
Si quelqu'un a une idée, ca m'aiderait beaucoup et éviterait des tonnes de problèmes :sweat: (mails qui arrivent pas, etc...)

Code :

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim desti
For Each desti In Item.Recipients
If desti.Address Like "*@*" Then //Bon là je met pas tous le test, c'est plus poussé que ca mais ca n'a pas d'interet ici
Externe = True
Else
interne = True
End If
Exit For
Next desti
If externe = True Then //bon jusque là, RAS, selon le formatage de l'adresse de destination, on passe le bon paramètre.
go = Set_Account("Mail", Item)
Else
go = Set_Account("Messagerie Interne", Item)
End If
End Sub

Code :

Function Set_Account(ByVal AccountName As String, M As Outlook.MailItem) As String
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 //Là ca parcours tous les comptes de messagerie existant, donc Mail et Messagerie interne, et je le vois faire au pas à pas
intLoc = InStr(MC.Caption, " " )
If intLoc > 0 Then
strAccountBtnName = Mid(MC.Caption, intLoc + 1)
Else
strAccountBtnName = MC.Caption
End If
If strAccountBtnName = AccountName Then //Quand le compte recherché est trouvé, on envoi le mail. On rentre bien ici au bon moment.
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

j'ai juste l'impression que ca sert à rien, je dis d'envoyer le mail, mais ai-je bien forcé l'utilisation du bon compte ?
Concrètement, tout ce code ne change rien, si je en le mettais pas tout se passerait de la même façon, le compte ne change jamais.

Une idée?

---------------
Mon topic de vente - Mon feed-back

Publicité

tuxbleu

renie ses origines

Rectification / Précision.
En suivant l'exécution pas à pas, je me rends compte que le compte change bien, ca passe sur le bon compte de messagerie.
Mais aucune incidence au final, l'envoie se fait par le compte par defaut.

Étonnamment, ca a fonctionné une fois, le message est parti par le bon compte, mais je ne comprends pas pourquoi
Le champs "De" s'est transformé en "tuxbleu [tuxbleu@boite.com]; de la part de; tuxbleu@exchange

---------------
Mon topic de vente - Mon feed-back

imadou_vb

Bonjour,

J'ai tourné et tourné sur ce sujet et j'ai trouvé l'astuce
Tout en conservant les bases de ton code, l'astuce est de stopper l'envoi, copier ton email et de supprimer l'original

dans ton code item_send

met ce code juste apres le end if de tes fonctions set_account

If externe = True Then //bon jusque là, RAS, selon le formatage de l'adresse de destination, on passe le bon paramètre.
go = Set_Account("Mail", Item)
Else
go = Set_Account("Messagerie Interne", Item)
End If
End Sub

'suite pb modification du mail on contourne le pb ! On crée une copie et je delete l'original
Cancel = True
MAILQUALITE.Copy.Send
MAILQUALITE.Delete

imadou_vb

Petite precision MAILQUALITE est item pour toi !

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VB Outlook] Changer de compte de messagerie au moment de l'envoi

Sujets relatifs
Afficher une image sous VB	Macro: Changer le type du fichier dans Enregistrer sous
Problème d'aperçu partiel de mon formulaire php dans Outlook	WORD VB Comment supprimer des liaisons dans l'en-tête?
[Résolu] Problème concaténation et chemin vers autre classeur	[VB.net] Reload, refresh form après changement de la langue
Vote / Satisfaction et envoi par email	INTRODUIRE une base de donnée dans Le VB
[VB.NET] Affichage MsChart continuellement mis a jour	[Resolu] Problème formulaire envoi mail
Plus de sujets relatifs à : [VB Outlook] Changer de compte de messagerie au moment de l'envoi

Page générée en 0.053 secondes