Outlook VBA. La mise en œuvre .SentOnBehalfOfName dans mon code

i avait mon code de cette façon:Outlook VBA. La mise en œuvre .SentOnBehalfOfName dans mon code

Public WithEvents myItem As Outlook.MailItem 

Private Sub Application_ItemLoad(ByVal Item As Object) 
If Item.Class = olMail Then 
    Set myItem = Item 
End If 
End Sub 


Private Sub myItem_Open(Cancel As Boolean) 

Dim oAccount As Outlook.Explorer 
Dim oMail As MailItem 

Dim Recip As Outlook.Recipient 

Set oAccount = Application.ActiveExplorer 
MsgBox (oAccount.CurrentFolder.Store) 

If oAccount.CurrentFolder.Store = "[email protected]" Then 
MsgBox ("CC needs to be added") 


Set Recip = myItem.Recipients.Add("[email protected]") 
Recip.Type = olCC 
Recip.Resolve 


Else 
MsgBox ("no need to add CC") 
End If 
End Sub

Je voudrais ajouter quelque chose comme myItem.SentOnBehalfOfName = « [email protected] » dans mon code, mais simplement le coller dans mon code ne marche pas. Je suis noob dans le codage alors je dois probablement mettre quelque chose avant. Quelqu'un pourrait m'aider avec celui-ci?

Je cherchais depuis quelques heures. J'ai déjà essayé le myItem.SentOnBehalfOfName = "[email protected]" mais en réalité il ne fait rien. Il ne montre aucune erreur aussi donc je ne sais pas ce qui pourrait être faux. Quelqu'un a une idée?

Source

2017-09-05 Art

Cherchez d'abord. Sur la base de cette recherche, mettez myItem.SentOnBehalfOfName = "[email protected]" dans votre code et s'il y a un problème, posez le problème. – niton

J'ai cherché pendant quelques heures. J'ai déjà essayé le myItem.SentOnBehalfOfName = "[email protected]" mais en réalité il ne fait rien. Il ne montre aucune erreur aussi donc je ne sais pas ce qui pourrait être faux. Quelqu'un a une idée? – Art

Ce comportement complexe SentOnBehalfOfName est décrit dans les publications précédentes.

Private Sub myItem_Open_SentonBehalf_Test() 

Dim oExpl As Explorer 
Dim myItem As mailitem 

Set oExpl = ActiveExplorer 
Set myItem = CreateItem(olMailItem) 
' Do not display 

If oExpl.CurrentFolder.store = "[email protected]" Then 

    Debug.Print "myItem.SentOnBehalfOfName:" & "x " & myItem.SentOnBehalfOfName & " x" 
    myItem.SentOnBehalfOfName = "[email protected]" 
    Debug.Print "myItem.SentOnBehalfOfName:" & "x " & myItem.SentOnBehalfOfName & " x" 

    ' be careful to put this after updating SentOnBehalfOfName 
    myItem.Display 
    ' Manually display the From field to see the updated entry 

Else 

    Debug.Print "Wrong path." 

End If 

ExitRoutine: 
    Set myItem = Nothing 
    Set oExpl = Nothing 

End Sub

Source

2017-09-06 19:06:16 niton

Outlook VBA. La mise en œuvre .SentOnBehalfOfName dans mon code

Répondre

Questions connexes