Backup and recover physical and cloud-based servers and workstations, as well as endpoint devices that belong to remote users. Avoid downtime and data loss quickly and easily for Windows-based physical or public cloud-based workloads!
Function R_GetSenderAddress(objMsg) Dim strType Dim objSenderAE ' Redemption.AddressEntry Dim objSMail ' Redemption.SafeMailItem Const PR_SENDER_ADDRTYPE = &HC1E001E Const PR_EMAIL = &H39FE001E Set objSMail = CreateObject("Redemption.SafeMailItem") objSMail.Item = objMsg strType = objSMail.Fields(PR_SENDER_ADDRTYPE) Set objSenderAE = objSMail.Sender If Not objSenderAE Is Nothing Then If strType = "SMTP" Then R_GetSenderAddress = objSenderAE.Address ElseIf strType = "EX" Then R_GetSenderAddress = objSenderAE.Fields(PR_EMAIL) End If End If Set objSenderAE = Nothing Set objSMail = Nothing End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|OUTLOOK 2013 - Press REPLY to an email - I want a POP OUT by default||3||37|
|Unable to open excel files from outlook - microsoft excel cannot open or save any documents because there is not enough memory or disk space||6||42|
|SBS 2011 Exchange question - how would you check for a mailbox and who it forwards to?||6||17|