Hi,
Currently i am trying to tweek the code but i am not familiar with the function to add people to the current list of people being CC-ed.
<code>
Dim strSubject As String
Dim myRecipient As Outlook.Recipient
Dim i
Dim CancelEvent
Dim Found As Boolean
Dim objNS As Outlook.NameSpace
Set objNS = Outlook.GetNamespace("MAPI")
Dim V As String
CancelEvent = False
Found = False
i = 1
Dim strSubject As String
Dim myRecipient As Outlook.Recipient
Dim i
Dim CancelEvent
Dim Found As Boolean
Dim objNS As Outlook.NameSpace
Set objNS = Outlook.GetNamespace("MAPI")
Dim V As String
CancelEvent = False
Found = False
i = 1
SenderEmailAddress = objNS.Session.CurrentUser.AddressEntry.GetExchangeUser.PrimarySmtpAddress
Item.CC = SenderEmailAddress
</Code>
Many thanks for guideing me on this.
Currently i am trying to tweek the code but i am not familiar with the function to add people to the current list of people being CC-ed.
<code>
Dim strSubject As String
Dim myRecipient As Outlook.Recipient
Dim i
Dim CancelEvent
Dim Found As Boolean
Dim objNS As Outlook.NameSpace
Set objNS = Outlook.GetNamespace("MAPI")
Dim V As String
CancelEvent = False
Found = False
i = 1
Dim strSubject As String
Dim myRecipient As Outlook.Recipient
Dim i
Dim CancelEvent
Dim Found As Boolean
Dim objNS As Outlook.NameSpace
Set objNS = Outlook.GetNamespace("MAPI")
Dim V As String
CancelEvent = False
Found = False
i = 1
SenderEmailAddress = objNS.Session.CurrentUser.AddressEntry.GetExchangeUser.PrimarySmtpAddress
Item.CC = SenderEmailAddress
</Code>
Many thanks for guideing me on this.