Question : Changer facilement l'adresse sortante.  Perspectives 2010 (ou 2007 ou 2003)

Nous avons un client qui envoie le courrier de 50-75 adresses différentes (longue histoire).  Les réponses obtiennent en employant un système de propriété industrielle - elles ne sont pas de vrais comptes, mais les réponses arrivent à l'utilisateur - pensent à lui comme adresse de carte d'invitation si vous will.

Anyway, nous accomplissiez la capacité de envoi using les perspectives 2007 et les perspectives 2010 en ayant un deuxième compte installé sur la machine de client using le smtp.  Quand il veut envoyer, il doit aller aux arrangements de compte et puis changer l'email address.  Cela fonctionne, mais c'est une douleur pour lui. le

Now avec les perspectives 2010, là est également le checkbox qui doit être non réprimé : « Des arrangements de compte d'essai en cliquant le prochain bouton » le compte est installés avec un serveur faux de smtp, puisqu'il n'y a aucune vérification de courrier.  Nous ne voulons pas à test.

au minimum, je voulons voir s'il y a une manière de manière permanente à l'uncheck cette option d'essai dans le

Optimally des perspectives 2010., que je voudrais avoir une certaine sorte de code de VBA qui peut être courue pour changer l'email address sur une perspicacité d'account.

Any serait appreciated. class= de

Réponse : Changer facilement l'adresse sortante.  Perspectives 2010 (ou 2007 ou 2003)

En vous assumant avoir le rachat addition que diriez-vous :

le testone est juste qu'une routine d'essai à la démo ce fonctionnant
le changeSender est la routine qui change réellement l'adresse de réponse tout en employant le compte de envoi original :

i.e. les doris@doris est l'email address d'expéditeur mais après que la fonction il soit reçue comme :

Quelqu'un, ([email protected])

Chris

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 :

Testone secondaire () Le faible AMI comme MailItem Placer l'AMI = Application.CreateItem (l'olMailItem) l'AMI de changeSender l'AMI. = « fred.fred.com » l'AMI. Sujet = « essai de changesender » l'AMI. Envoyer Finir le sous-marin Substrater le changeSender (l'AMI comme MailItem) Obscurcir le sItem comme Redemption.SafeMailItem Obscurcir le streptocoque comme variante Obscurcir l'étiquette en tant que longtemps Placer le sItem = le CreateObject (« Redemption.SafeMailItem ») sItem.item = AMI étiquette = sItem.GetIDsFromNames (« {00020386-0000-0000-C000-000000000046} », « de ») l'étiquette = l'étiquette ou le &H1E 'le type est PT_STRING8 sItem.Fields (étiquette) = « quelqu'un  » sItem.Subject = sItem.Subject 'pour duper des perspectives dans penser que quelque chose a changé sItem.Save Sous-marin d'extrémité