Envoi de Mail via outlook via une boite partagée

Version imprimable

Bonjour,

J'ai une macro qui fonctionne parfaitement pour l'envoi de mail, cependant je ne voudrais pas que ce soit ma boite mail principale qui soit l’expéditeur mais une autre des mes boite mails (qui est partagée)

j'ai essayé avec "from" mais cela ne fonctionne pas

Code:

1
2
3
4
5
6
7
8
               'création et envoi du mail
                          With ActiveSheet.MailEnvelope
                          .Introduction = "Bonjour, " & n_mission & " n'est pas sur...., " 'le texte
                          .Item.To = mail_desti
                          .Item.Subject = n_mission 
                          .Item.Send
                          End With
                          Workbooks("tab_envoi.xlsx").Close False

Merci

05/02/2019, 18h20
patricktoulon

re

bonjour
je dis peut etre une betise mais je ne suis par sur que mailenveloope concerne CDO
il me semble plutot que c'est outlook d'autre confirmeront ou infirmeront
06/02/2019, 08h43
Fdc_53

bonjour effectivement il s'agit d'un envoi outlook

Bonjour Fdc et Patrick (Salut!)

Pour information, peut-être
Code:

1 2 With ActiveSheet.MailEnvelope.Item .SentOnBehalfOfName = laboîtedeservice@monadresse.fr

06/02/2019, 09h00
Fdc_53

Bonjour Marcel,

je n'avais pas vu ton message

J'ai essayé avec :

Code:

.Item.SentOnBehalfOfName

Cependant,

Nous n’avons pas pu envoyer ce message. Vous n'avez pas l'autorisation d'envoyer le message sous le nom de l'utilisateur spécifié.

__________________________________________________

Informations de diagnostic pour les administrateurs :
__________________________________________________

L’erreur est [0x80070005-0x000004dc-0x00000524].
06/02/2019, 09h02
MarcelG

Salut,

Dans ce cas, je pense qu'il s'agit d'un problème de droit et/ou de configuration.
06/02/2019, 09h08
halaster08

Bonjour,

Une autre solution par ici: https://www.rondebruin.nl/win/s1/outlook/account.htm
06/02/2019, 11h12
Fdc_53

Merci pour vos retours,

j'ai une erreur de compilation / Erreur de syntaxe à ce niveau

Code:

Pour I = 1 To OutApp.Session.Accounts.Count
06/02/2019, 11h20
halaster08

Citation:

Envoyé par Fdc_53

Merci pour vos retours,

j'ai une erreur de compilation / Erreur de syntaxe à ce niveau

Code:

Pour I = 1 To OutApp.Session.Accounts.Count

Pour ? Pas sur que vba comprennent le franglais

oups!!

Etape passée. Merci,

la macro reconnait bien mon adresse mail principal (1) mais pas les autres, je ne peux du coup changer:
Code:

1 2 3 'SendUsingAccount is new in Office 2007 'Change Item(1)to the account number that you want to use .SendUsingAccount = OutApp.Session.Accounts.Item(1)

06/02/2019, 13h06
halaster08

Citation:

la macro reconnait bien mon adresse mail principal (1) mais pas les autres, je ne peux du coup changer:

Es-tu bien connecté avec ces mails sur ton compte outllook ?
Hors macro, peux-tu les utiliser pour envoyer un mail ?
06/02/2019, 13h59
Fdc_53

Oui, je suis bien connecté hors macro a ces comptes et je peux envoyer des messages en choisissant mon adresse d'expediteur directement dans outlook.
06/02/2019, 14h43
halaster08

Citation:

Envoyé par Fdc_53

Oui, je suis bien connecté hors macro a ces comptes et je peux envoyer des messages en choisissant mon adresse d'expediteur directement dans outlook.

Dans ce cas je ne comprend pas pourquoi la macro précédente ne les voit pas, je suis désolé ça dépasse mes compétences.
28/04/2020, 10h35
lleki

Solution trouvée ?

Bonjour Fdc_53,
Je suis confrontée au même problème, avez-vous trouvé une solution ?
Merci d'avance de votre retour !
Bonne journée