Pergunta : Mudar facilmente endereço que parte.  Probabilidade 2010 (ou 2007 ou 2003)

We've começ um cliente que emitisse o correio de 50-75 endereços diferentes (história longa).  As respostas começ em usar um sistema proprietário - não são clientes reais, mas as respostas começ ao usuário - pensam dele como um endereço do convite se você will.

Anyway, nós realizou a habilidade de emissão using a probabilidade 2007 e a probabilidade 2010 tendo um segundo cliente setup na máquina de cliente using o smtp.  Quando quer emitir, precisa de ir aos ajustes do cliente e de mudar então o email address.  Trabalha, mas é uma dor para ele. o

Now com probabilidade 2010, lá é igualmente o checkbox que precisa de ser não-verificado: Do “os ajustes do cliente teste estalando a tecla seguinte” o cliente setup com um usuário falso do smtp, desde que não há nenhuma verificação do correio.  Nós não queremos a test.

pelo menos, mim queremos ver se há uma maneira permanentemente ao uncheck esta opção do teste no

Optimally da probabilidade 2010., que eu gostaria de ter alguma sorte do código de VBA que pode ser funcionada para mudar o email address em uma introspecção de account.

Any seria appreciated. class= do

Resposta : Mudar facilmente endereço que parte.  Probabilidade 2010 (ou 2007 ou 2003)

Supor o ter a redenção add-in como aproximadamente:

o testone é apenas que uma rotina do teste ao programa demonstrativo ele que trabalha
o changeSender é a rotina que muda realmente o endereço da resposta enquanto usando o cliente de emissão original:

i.e. os doris@doris são o email address do remetente mas depois que a função ele é recebida como:

Alguém, ([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 secundário ()
MAI não ofuscante como MailItem

    Ajustar MAI = Application.CreateItem (o olMailItem)
    MAI do changeSender
    MAI. = “fred.fred.com”
    MAI. Assunto = do “teste changesender”
    MAI. Emitir

Terminar o submarino

Sub o changeSender (o MAI como MailItem)
Escurecer o sItem como Redemption.SafeMailItem
Escurecer o estreptococo como a variação
Escurecer o Tag como por muito tempo

    Ajustar o sItem = o CreateObject (“Redemption.SafeMailItem”)
    sItem.item = MAI
    Tag = sItem.GetIDsFromNames (“{00020386-0000-0000-C000-000000000046}”, “de”)
    o Tag = o Tag ou &H1E     'o tipo são PT_STRING8
    sItem.Fields (Tag) = “alguém ”
    sItem.Subject = sItem.Subject 'para enganar a probabilidade em pensar que algo mudou
    sItem.Save

Submarino da extremidade
Outras soluções  
 
programming4us programming4us