Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Security message in Outlook
Message
De
21/02/2005 16:35:31
 
 
À
21/02/2005 16:17:13
Information générale
Forum:
Visual FoxPro
Catégorie:
COM/DCOM et OLE Automation
Versions des environnements
Visual FoxPro:
VFP 7 SP1
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
Visual FoxPro
Divers
Thread ID:
00988795
Message ID:
00989024
Vues:
68
It's a MAPI constant, see http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cdo/html/_olemsg_mapi_property_tags.asp for a complete list. Please forgive me, but I can not give you much more help. I also wrote in my first message that I was not sure whether Outlook Redemption can be used for you problem, but I still think it can.

>But what does it actually mean?
>ANyway I want to read in emails. I use wwIpStuff to send
>
>Thanks
>
>
>Peter
>
>
>>>>>>Did you read the documentation?
>>>>>>
>>>>>what documentation?
>>>>
>>>>Click the Redemption Objects and the Miscellaneous Redemption objects links. If you are familiar with Outlook automation, the conversion from VB code to VFP code is very easy.
>>>
>>>what does that mean and how to do it in vfp:
>>>
>>>PrSenderEmail = &H0C1F001E
>>>?sItem.Fields(PrSenderEmail)
>>>
>>>
>>
>>&H0C1F001E is a hexadecimal value, in VFP you use the form 0x... in stead of &H..., so &H0C1F001E in VB equals 0x0C1F001E in VFP. 0x0C1F001E equals 203358238. It is common to use hexadecimal values as constants (for some reason). The most usual way to use these kind of constants is to #DEFINE them.
>>
#DEFINE PrSenderEmail 0x0C1F001E
>>?sItem.Fields(PrSenderEmail)
>>Note that you can not use #DEFINE in the command window.
>>
>>UPDATE:
>>Here is an excerpt from my procedure to send emails from Outlook, using Outlook Redemption to overcome the security warning. I hope it will give you some valuable tips.
>>Function SendEMail
>>Lparameters lcTo, lcSubject, lcBody, lcBCC
>>Local loOutlook, loNameSpace, loFolder, loItem,loSafeItem,lcCurDir
>>
>>If Type('lcBody') != 'C' Or Type('lcSubject') != 'C' Or Type('lcTo') != 'C'
>>  Return .F.
>>Else
>>  lcCurDir = Sys(5) + Sys(2003)
>>  If Vartype(lcBCC)#'C'
>>    lcBCC=''
>>  Endif
>>  loOutlook     = Createobject('Outlook.Application')
>>  loNameSpace   = loOutlook.GetNameSpace('MAPI')
>>  loSafeItem    = Createobject('redemption.safeMailItem')
>>  loItem        = loOutlook.Createitem(0)
>>  With loSafeItem
>>    .Item=loItem
>>    .body=lcBody
>>    .To=lcTo
>>    .bcc=lcBCC
>>  Endwith
>>  With loItem
>>    .SUBJECT    = lcSubject
>>    .IMPORTANCE = 1          && 1 = Normal
>>  Endwith
>>  loSafeItem.Send
>>  Cd (lcCurDir)
>>  Release loItem
>>  Release loSafeItem
>>  Release loFolder
>>  Release loNameSpace
>>  Release loOutlook
>>  Release lcCurDir
>>  Return .T.
>>Endif
>>Endfunc
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform