envoyer un mail en outlook en modifiant le "from"

Bonjour a tous,

J'ai fait un petit prog vb pour envoyer des emails + attachements outlook
2000 mais n'arrive pas à changer le "from" (celui qui envoie).
J'ai en effet plusieurs mailbox et ai le droit en manuel de changer ce from.
J'ai essayé via la valeur olOriginator mais cela bloque lors de la resolution
de nom ?

Apparemment le olOriginator n'est pas admis ?
Si j'ommet olOriginato et le remplace par olCC cela fonctionne mais pas
comme je le souhaite...

voici la source :
--------------------------------------
Dim OutlookApp As New Outlook.Application
OutlookApp.GetNamespace("MAPI").logon "Profile1", "", True, True
Set NewMail = OutlookApp.createItem(olMailItem)
Set myAttach = NewMail.attachments
myAttach.Add "c:datastat.xls", olbyvalue, 1, "Evolution - Statistiques
Mensuelles"

Set myRecipient = NewMail.Recipients.Add("destinataire en CC")
myRecipient.Type = olCC

' Il ne semble pas aimer le olOriginator
Set myRecipient = NewMail.Recipients.Add("createur de mail")
myRecipient.Type = olOriginator

NewMail.Recipients.Add "destinataire 2 en to"
NewMail.Recipients.Add "destinataire 3 en to"
NewMail.Recipients.resolveall

NewMail.subject = "Statistiques mensuelles " & Format(Date, "yyyy-mm")
NewMail.body = vbCr & "Ci-joint tes statistiques journalières du mois " &
Format(Yesterday, "mmmm yyyy") & vbCr & "Bien à toi," & vbCr & "Le Team
Support."
NewMail.Send
OutlookApp.GetNamespace("MAPI").Logoff

myAttach = Null
NewMail = Null
---------------------------------------------

Merci de vos idées.

Jean

Bonjour,

Tu pourrais utiliser CDO, mais dans ce cas il n'y aurait pas de trace dans
Outlook de l'envoi des messages. Par contre, tu peux spécifier l'expéditeur.

--
Patrick


"Jean" wrote:

> Bonjour a tous,
>
> J'ai fait un petit prog vb pour envoyer des emails + attachements outlook
> 2000 mais n'arrive pas à changer le "from" (celui qui envoie).
> J'ai en effet plusieurs mailbox et ai le droit en manuel de changer ce from.
> J'ai essayé via la valeur olOriginator mais cela bloque lors de la resolution
> de nom ?
>
> Apparemment le olOriginator n'est pas admis ?
> Si j'ommet olOriginato et le remplace par olCC cela fonctionne mais pas
> comme je le souhaite...
>
> voici la source :
> --------------------------------------
> Dim OutlookApp As New Outlook.Application
> OutlookApp.GetNamespace("MAPI").logon "Profile1", "", True, True
> Set NewMail = OutlookApp.createItem(olMailItem)
> Set myAttach = NewMail.attachments
> myAttach.Add "c:datastat.xls", olbyvalue, 1, "Evolution - Statistiques
> Mensuelles"
>
> Set myRecipient = NewMail.Recipients.Add("destinataire en CC")
> myRecipient.Type = olCC
>
> ' Il ne semble pas aimer le olOriginator
> Set myRecipient = NewMail.Recipients.Add("createur de mail")
> myRecipient.Type = olOriginator
>
> NewMail.Recipients.Add "destinataire 2 en to"
> NewMail.Recipients.Add "destinataire 3 en to"
> NewMail.Recipients.resolveall
>
> NewMail.subject = "Statistiques mensuelles " & Format(Date, "yyyy-mm")
> NewMail.body = vbCr & "Ci-joint tes statistiques journalières du mois " &
> Format(Yesterday, "mmmm yyyy") & vbCr & "Bien à toi," & vbCr & "Le Team
> Support."
> NewMail.Send
> OutlookApp.GetNamespace("MAPI").Logoff
>
> myAttach = Null
> NewMail = Null
> ---------------------------------------------
>
> Merci de vos idées.
>
> Jean
>
>

Salut,
Je ne comprend pas comment cela va resoudre mon probleme avec olOriginator.
Peux-tu developper ton idée ?
Merci
Jean

"Patrick Fredin" a écrit :

> Bonjour,
>
> Tu pourrais utiliser CDO, mais dans ce cas il n'y aurait pas de trace dans
> Outlook de l'envoi des messages. Par contre, tu peux spécifier l'expéditeur.
>
> --
> Patrick
>
>
> "Jean" wrote:
>
> > Bonjour a tous,
> >
> > J'ai fait un petit prog vb pour envoyer des emails + attachements outlook
> > 2000 mais n'arrive pas à changer le "from" (celui qui envoie).
> > J'ai en effet plusieurs mailbox et ai le droit en manuel de changer ce from.
> > J'ai essayé via la valeur olOriginator mais cela bloque lors de la resolution
> > de nom ?
> >
> > Apparemment le olOriginator n'est pas admis ?
> > Si j'ommet olOriginato et le remplace par olCC cela fonctionne mais pas
> > comme je le souhaite...
> >
> > voici la source :
> > --------------------------------------
> > Dim OutlookApp As New Outlook.Application
> > OutlookApp.GetNamespace("MAPI").logon "Profile1", "", True, True
> > Set NewMail = OutlookApp.createItem(olMailItem)
> > Set myAttach = NewMail.attachments
> > myAttach.Add "c:datastat.xls", olbyvalue, 1, "Evolution - Statistiques
> > Mensuelles"
> >
> > Set myRecipient = NewMail.Recipients.Add("destinataire en CC")
> > myRecipient.Type = olCC
> >
> > ' Il ne semble pas aimer le olOriginator
> > Set myRecipient = NewMail.Recipients.Add("createur de mail")
> > myRecipient.Type = olOriginator
> >
> > NewMail.Recipients.Add "destinataire 2 en to"
> > NewMail.Recipients.Add "destinataire 3 en to"
> > NewMail.Recipients.resolveall
> >
> > NewMail.subject = "Statistiques mensuelles " & Format(Date, "yyyy-mm")
> > NewMail.body = vbCr & "Ci-joint tes statistiques journalières du mois " &
> > Format(Yesterday, "mmmm yyyy") & vbCr & "Bien à toi," & vbCr & "Le Team
> > Support."
> > NewMail.Send
> > OutlookApp.GetNamespace("MAPI").Logoff
> >
> > myAttach = Null
> > NewMail = Null
> > ---------------------------------------------
> >
> > Merci de vos idées.
> >
> > Jean
> >
> >

> > >

Tu utilises la technologie CDO (voir sur le site de Microsoft). Avec cette
technologie, dans le code tu pourras spécifier tous les paramètres du mail.

Si tu n'y arrives pas (ce n'est toutefois pas compliqué à mettre en oeuvre),
je vais essayer de retrouver un exemple que j'avais fait.

Tiens-moi au courant.

--
Patrick


"Jean" wrote:

> Salut,
> Je ne comprend pas comment cela va resoudre mon probleme avec olOriginator.
> Peux-tu developper ton idée ?
> Merci
> Jean
>
> "Patrick Fredin" a écrit :
>
> > Bonjour,
> >
> > Tu pourrais utiliser CDO, mais dans ce cas il n'y aurait pas de trace dans
> > Outlook de l'envoi des messages. Par contre, tu peux spécifier l'expéditeur.
> >
> > --
> > Patrick
> >
> >
> > "Jean" wrote:
> >
> > > Bonjour a tous,
> > >
> > > J'ai fait un petit prog vb pour envoyer des emails + attachements outlook
> > > 2000 mais n'arrive pas à changer le "from" (celui qui envoie).
> > > J'ai en effet plusieurs mailbox et ai le droit en manuel de changer ce from.
> > > J'ai essayé via la valeur olOriginator mais cela bloque lors de la resolution
> > > de nom ?
> > >
> > > Apparemment le olOriginator n'est pas admis ?
> > > Si j'ommet olOriginato et le remplace par olCC cela fonctionne mais pas
> > > comme je le souhaite...
> > >
> > > voici la source :
> > > --------------------------------------
> > > Dim OutlookApp As New Outlook.Application
> > > OutlookApp.GetNamespace("MAPI").logon "Profile1", "", True, True
> > > Set NewMail = OutlookApp.createItem(olMailItem)
> > > Set myAttach = NewMail.attachments
> > > myAttach.Add "c:datastat.xls", olbyvalue, 1, "Evolution - Statistiques
> > > Mensuelles"
> > >
> > > Set myRecipient = NewMail.Recipients.Add("destinataire en CC")
> > > myRecipient.Type = olCC
> > >
> > > ' Il ne semble pas aimer le olOriginator
> > > Set myRecipient = NewMail.Recipients.Add("createur de mail")
> > > myRecipient.Type = olOriginator
> > >
> > > NewMail.Recipients.Add "destinataire 2 en to"
> > > NewMail.Recipients.Add "destinataire 3 en to"
> > > NewMail.Recipients.resolveall
> > >
> > > NewMail.subject = "Statistiques mensuelles " & Format(Date, "yyyy-mm")
> > > NewMail.body = vbCr & "Ci-joint tes statistiques journalières du mois " &
> > > Format(Yesterday, "mmmm yyyy") & vbCr & "Bien à toi," & vbCr & "Le Team
> > > Support."
> > > NewMail.Send
> > > OutlookApp.GetNamespace("MAPI").Logoff
> > >
> > > myAttach = Null
> > > NewMail = Null
> > > ---------------------------------------------
> > >
> > > Merci de vos idées.
> > >
> > > Jean
> > >
> > >