En Automation à partir d'une Base Access, comment changer de compte d'émission ?
3 réponses
com-ace
Bonjour,
J'envoie un mesage d'OUTLOOK à partir d'ACCESS en automation.
J'ai 4 comptes de messagerie OUTLOOK.
Je souhaite envoyer le message avec un compte qui n'est pas le compte par
défaut.
Je ne trouve pas sur les aides les instructions de changement.
Je n'ai trouvé que l'instruction qui me donne le compte en cours :
Set myNameSpace = OLookApp.GetNamespace("MAPI")
com-ace a confié : | Bonjour, | | J'envoie un mesage d'OUTLOOK à partir d'ACCESS en automation. | | J'ai 4 comptes de messagerie OUTLOOK. | | Je souhaite envoyer le message avec un compte qui n'est pas le compte | par défaut. | | Je ne trouve pas sur les aides les instructions de changement. | Je n'ai trouvé que l'instruction qui me donne le compte en cours : | Set myNameSpace = OLookApp.GetNamespace("MAPI") | | Quelqu'un peut-il m'aider ? | Merci | Bertrand
Bonjour com-ace
Est-ce que ta version d'Outlook est supérieure à 98 ?
com-ace <com-ace@wanadoo.fr> a confié :
| Bonjour,
|
| J'envoie un mesage d'OUTLOOK à partir d'ACCESS en automation.
|
| J'ai 4 comptes de messagerie OUTLOOK.
|
| Je souhaite envoyer le message avec un compte qui n'est pas le compte
| par défaut.
|
| Je ne trouve pas sur les aides les instructions de changement.
| Je n'ai trouvé que l'instruction qui me donne le compte en cours :
| Set myNameSpace = OLookApp.GetNamespace("MAPI")
|
| Quelqu'un peut-il m'aider ?
| Merci
| Bertrand
com-ace a confié : | Bonjour, | | J'envoie un mesage d'OUTLOOK à partir d'ACCESS en automation. | | J'ai 4 comptes de messagerie OUTLOOK. | | Je souhaite envoyer le message avec un compte qui n'est pas le compte | par défaut. | | Je ne trouve pas sur les aides les instructions de changement. | Je n'ai trouvé que l'instruction qui me donne le compte en cours : | Set myNameSpace = OLookApp.GetNamespace("MAPI") | | Quelqu'un peut-il m'aider ? | Merci | Bertrand
com-ace
La version est OUTLOOK 2000 Merci d'avance bertrand "Anor" <http://minilien.com/?8RfQLiXHOe> a écrit dans le message de news:
Bonjour com-ace
Est-ce que ta version d'Outlook est supérieure à 98 ?
com-ace a confié : | Bonjour, | | J'envoie un mesage d'OUTLOOK à partir d'ACCESS en automation. | | J'ai 4 comptes de messagerie OUTLOOK. | | Je souhaite envoyer le message avec un compte qui n'est pas le compte | par défaut. | | Je ne trouve pas sur les aides les instructions de changement. | Je n'ai trouvé que l'instruction qui me donne le compte en cours : | Set myNameSpace = OLookApp.GetNamespace("MAPI") | | Quelqu'un peut-il m'aider ? | Merci | Bertrand
La version est OUTLOOK 2000
Merci d'avance
bertrand
"Anor" <http://minilien.com/?8RfQLiXHOe> a écrit dans le message de news:
OtTMpQxbDHA.3312@TK2MSFTNGP11.phx.gbl...
Bonjour com-ace
Est-ce que ta version d'Outlook est supérieure à 98 ?
com-ace <com-ace@wanadoo.fr> a confié :
| Bonjour,
|
| J'envoie un mesage d'OUTLOOK à partir d'ACCESS en automation.
|
| J'ai 4 comptes de messagerie OUTLOOK.
|
| Je souhaite envoyer le message avec un compte qui n'est pas le compte
| par défaut.
|
| Je ne trouve pas sur les aides les instructions de changement.
| Je n'ai trouvé que l'instruction qui me donne le compte en cours :
| Set myNameSpace = OLookApp.GetNamespace("MAPI")
|
| Quelqu'un peut-il m'aider ?
| Merci
| Bertrand
com-ace a confié : | Bonjour, | | J'envoie un mesage d'OUTLOOK à partir d'ACCESS en automation. | | J'ai 4 comptes de messagerie OUTLOOK. | | Je souhaite envoyer le message avec un compte qui n'est pas le compte | par défaut. | | Je ne trouve pas sur les aides les instructions de changement. | Je n'ai trouvé que l'instruction qui me donne le compte en cours : | Set myNameSpace = OLookApp.GetNamespace("MAPI") | | Quelqu'un peut-il m'aider ? | Merci | Bertrand
Anor
Bonjour com-ace
Ok essaye la méthode suivante :
Sub SendMailCDO() 'Cocher la référence à Microsoft CDO for Exchange xxxx librairy Dim Message As New cdo.Message With Message .From = "" .To = "" .Subject = "sujet du mail" .TextBody = "Le corps du message" .AddAttachment ("c:cheminfichier.ext") .Send End With Set Message = Nothing End Sub
Elle devrait te permettre de choisir l'émetteur. Tu trouveras d'autres exemples ici : http://memoaccess.free.fr/outlook.htm
Si tu dois utiliser un autre serveur smtp que celui par défaut, j'ai peut-être quelque chose, mais comme je ne maîtrise pas encore à 100% la méthode, je préfère ne pas me précipiter pour la publier....
com-ace a confié : | La version est OUTLOOK 2000 | Merci d'avance | bertrand | "Anor" <http://minilien.com/?8RfQLiXHOe> a écrit dans le message de | news: || Bonjour com-ace || || Est-ce que ta version d'Outlook est supérieure à 98 ? || || -- || à+ || Arnaud || -------------------------------------------------- || Conseils d'utilisation, sites recommandés : || http://users.skynet.be/mpfa/ || Access Memorandum - http://memoaccess.free.fr || -------------------------------------------------- || || || com-ace a confié : ||| Bonjour, ||| ||| J'envoie un mesage d'OUTLOOK à partir d'ACCESS en automation. ||| ||| J'ai 4 comptes de messagerie OUTLOOK. ||| ||| Je souhaite envoyer le message avec un compte qui n'est pas le ||| compte par défaut. ||| ||| Je ne trouve pas sur les aides les instructions de changement. ||| Je n'ai trouvé que l'instruction qui me donne le compte en cours : ||| Set myNameSpace = OLookApp.GetNamespace("MAPI") ||| ||| Quelqu'un peut-il m'aider ? ||| Merci ||| Bertrand
Bonjour com-ace
Ok essaye la méthode suivante :
Sub SendMailCDO()
'Cocher la référence à Microsoft CDO for Exchange xxxx librairy
Dim Message As New cdo.Message
With Message
.From = "emetteur@domaine.fr"
.To = "destinataire@domaine.com"
.Subject = "sujet du mail"
.TextBody = "Le corps du message"
.AddAttachment ("c:cheminfichier.ext")
.Send
End With
Set Message = Nothing
End Sub
Elle devrait te permettre de choisir l'émetteur.
Tu trouveras d'autres exemples ici :
http://memoaccess.free.fr/outlook.htm
Si tu dois utiliser un autre serveur smtp que celui par défaut,
j'ai peut-être quelque chose, mais comme je ne maîtrise pas encore
à 100% la méthode, je préfère ne pas me précipiter pour la publier....
com-ace <com-ace@wanadoo.fr> a confié :
| La version est OUTLOOK 2000
| Merci d'avance
| bertrand
| "Anor" <http://minilien.com/?8RfQLiXHOe> a écrit dans le message de
| news: OtTMpQxbDHA.3312@TK2MSFTNGP11.phx.gbl...
|| Bonjour com-ace
||
|| Est-ce que ta version d'Outlook est supérieure à 98 ?
||
|| --
|| à+
|| Arnaud
|| --------------------------------------------------
|| Conseils d'utilisation, sites recommandés :
|| http://users.skynet.be/mpfa/
|| Access Memorandum - http://memoaccess.free.fr
|| --------------------------------------------------
||
||
|| com-ace <com-ace@wanadoo.fr> a confié :
||| Bonjour,
|||
||| J'envoie un mesage d'OUTLOOK à partir d'ACCESS en automation.
|||
||| J'ai 4 comptes de messagerie OUTLOOK.
|||
||| Je souhaite envoyer le message avec un compte qui n'est pas le
||| compte par défaut.
|||
||| Je ne trouve pas sur les aides les instructions de changement.
||| Je n'ai trouvé que l'instruction qui me donne le compte en cours :
||| Set myNameSpace = OLookApp.GetNamespace("MAPI")
|||
||| Quelqu'un peut-il m'aider ?
||| Merci
||| Bertrand
Sub SendMailCDO() 'Cocher la référence à Microsoft CDO for Exchange xxxx librairy Dim Message As New cdo.Message With Message .From = "" .To = "" .Subject = "sujet du mail" .TextBody = "Le corps du message" .AddAttachment ("c:cheminfichier.ext") .Send End With Set Message = Nothing End Sub
Elle devrait te permettre de choisir l'émetteur. Tu trouveras d'autres exemples ici : http://memoaccess.free.fr/outlook.htm
Si tu dois utiliser un autre serveur smtp que celui par défaut, j'ai peut-être quelque chose, mais comme je ne maîtrise pas encore à 100% la méthode, je préfère ne pas me précipiter pour la publier....
com-ace a confié : | La version est OUTLOOK 2000 | Merci d'avance | bertrand | "Anor" <http://minilien.com/?8RfQLiXHOe> a écrit dans le message de | news: || Bonjour com-ace || || Est-ce que ta version d'Outlook est supérieure à 98 ? || || -- || à+ || Arnaud || -------------------------------------------------- || Conseils d'utilisation, sites recommandés : || http://users.skynet.be/mpfa/ || Access Memorandum - http://memoaccess.free.fr || -------------------------------------------------- || || || com-ace a confié : ||| Bonjour, ||| ||| J'envoie un mesage d'OUTLOOK à partir d'ACCESS en automation. ||| ||| J'ai 4 comptes de messagerie OUTLOOK. ||| ||| Je souhaite envoyer le message avec un compte qui n'est pas le ||| compte par défaut. ||| ||| Je ne trouve pas sur les aides les instructions de changement. ||| Je n'ai trouvé que l'instruction qui me donne le compte en cours : ||| Set myNameSpace = OLookApp.GetNamespace("MAPI") ||| ||| Quelqu'un peut-il m'aider ? ||| Merci ||| Bertrand
