Utiliser un compte mail secondaire dans VBA

Version imprimable

Bonjour,

Je dispose d'un application Access qui envoi des mails pour des réponses à des réclamations.
Sur mon Outlook, il y a deux comptes de configuré : l'un est nominatif (prénom.nom@entreprise.fr), l'autre est une boite générique (générique@entreprise.fr)

Avec le code ci dessous, c'est obligatoirement mon compte par défaut (le nominatif) qui est utilisé pour l'envoi des mails. Ma question est de savoir comment dire à VBA d'utiliser la boite générique pour faire partir ces mails.

Avez vous une idée ?? Merci par avance...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 Dim strHTML As String Dim oEmail As Outlook.MailItem Dim appOutlook As Outlook.Application Set appOutlook = New Outlook.Application Set oEmail = appOutlook.CreateItem(olMailItem) oEmail.To = "destinataire@entreprise.fr" oEmail.Subject = "RE: " & Me.Intitulé.Value strHTML = "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0 Transitional//EN"">" & _ "<HTML><HEAD>" & _ "<META http-equiv=Content-Type content=""text/html; charset=iso-8859-1"">" & _ "<META content=""MSHTML 6.00.2800.1516"" name=GENERATOR></HEAD>" & _ "<BODY><DIV STYLE=""font-size: 14px; font-face: Arial;"">" oEmail.HTMLBody = strHTML & Replace("Réponse à la réclamation", vbCrLf, "<br>") & "</DIV></BODY></HTML>" oEmail.Send MsgBox "L'email à bien été envoyé", vbInformation Set oEmail = Nothing Set appOutlook = Nothing

24/01/2018, 16h38
Jean-Philippe André
Salut,

regarde les pistes avec
Code:

1 2 Dim i As MailItem i.SenderEmailAddress
24/01/2018, 17h03
Infratek
Citation:
Envoyé par Jean-Philippe André

Salut,

regarde les pistes avec

Code:

1 2 Dim i As MailItem i.SenderEmailAddress
Bonjour et merci pour ce début de piste, mais ca ne semble pas fonctionner, ou alors je rate quelque chose :

que signifie le i ? l'adresse mail d'envoi ?

Bonjour Infratek, Jean-Philippe André,

Tu peux le faire ainsi, ajouter cette fonction à la ligne 20:

Code:

Set_Account "LeNomDuCompte", oEmail

Et la fonction (récupérée ici mais je ne me souviens plus qui est l'auteur):

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
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)
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

Bonne journée

25/01/2018, 16h01
Infratek

Bonjour Robert1957

Ça ne fonctionne pas :(
De plus, j'ai du mal a comprendre ton code. je ne comprends pas non plus qu'un truc aussi simple necessite autant de lignes de code..... :(((((
26/01/2018, 05h42
Robert1957

1 pièce(s) jointe(s)
Bonjour Infratek,

Oupsss j'ai répondu trop vite. Tu dois ajouter ceci:
Code:

1 2 3 4 oEmail.Display Set_Account "LeNomDuCompte", oEmail 'et ensuite le reste de ton code oEmail.Send
Cette fonction parcours les commandes de Outlook, la commande: Pièce jointe 345723 lorsque tu envoies un mail et si elle trouve le nom du compte que tu as inscrit elle l'exécute. Si désiré, elle retourne le nom du compte si elle l'a trouvé et sinon elle retourne "vide".

Bonne journée
08/02/2018, 10h07
Infratek

1 pièce(s) jointe(s)

Bonjour

Je vous remercie de votre réponse mais ce code déclenche une erreur que je ne comprends pas.

Pièce jointe 349545
08/02/2018, 16h41
Robert1957

Bonjour Infratek,

Dans l'éditeur VBA dans Outil, Référence... il faut sélectionner "Microsoft Office XX.X Object Library".

Bonne journée
08/02/2018, 17h19
Infratek

1 pièce(s) jointe(s)

Bonjour,

C'est déja le cas :(

Pièce jointe 349754
08/02/2018, 22h22
Robert1957

Bonjour Infratek,

Pas la référence Outlook mais plutôt Microsoft Office 16.0 Object Library.

Bonne journée
09/02/2018, 16h14
Infratek

Bonjour

Regardez ma capture d'écran, la référence est aussi activée...
09/02/2018, 16h19
Invité

Re

Non elle n'est pas coché, c'est la bibliothèque DAO au dessus.

Il faut bien là "Microsoft Office XX.X Object Library" comme te l'indique Robert1957

Philippe
09/02/2018, 17h07
Infratek

Autant pour moi, effectivement j'avais mal lu. J'ai donc essayé en activant la référence mais ca envoi toujours le mail avec mon adresse par défaut... :(((

Bonjour Infratek,

Voici une routine qui va énumérer les comptes Outlook:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub btnCompte_Click() Dim OutApp As Outlook.Application Dim I As Long Set OutApp = GetObject(, "Outlook.Application") For I = 1 To OutApp.Session.Accounts.Count MsgBox OutApp.Session.Accounts.Item(I) & " : C'est le compte # " & I Next I End Sub
Ce code est pris ici sur le site: https://www.developpez.net/forums/d1...ction-contact/
Et lorsque tu connais le # du compte, tu peux utiliser le code un peu plus loin dans ce post, pour envoyer avec d'autres comptes que le compte par défaut. Je n'utilise pas cette technique mais elle semble tout à fait valable.

Tu trouveras aussi le fonctionnement si tes comptes fonctionnent avec un serveur exchange.

Bonne journée

10/02/2018, 21h46
ESVBA

En utilisant la propriété "SentOnBehalfOfName"

Bonsoir à tous,

et en utilisant la propriété "SentOnBehalfOfName"

ESVBA
11/02/2018, 16h32
Robert1957

Bonjour ESVBA,

Je n'ai pas fait le test mais je crois que c'est valable pour un serveur Exchange et pas pour un compte mail ordinaire. A vérifier.

Bonne journée