I need vb6 code for the same solution which uses MS outlook and Redemption objects.

help is appreciated.

A Womand Told Me
http://www.awomantoldme.com

I need vb 6.0 code for the same solution which uses MS outlook and Redemption objects.

help is appreciated.

A Womand Told Me
http://www.awomantoldme.com

Here is my code:

const GUID GUIDUseTnef={0x00062008, 0x0000, 0x0000, 0xC0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x46 };
MAPINAMEID namedProp;
namedProp.lpguid = (LPGUID)&GUIDUseTnef;
namedProp.ulKind = MNID_ID;
namedProp.Kind.lID = 0x8582;

LPMAPINAMEID lpNameID[1]={ &namedProp };
LPSPropTagArray lppPropTags;

if (m_pMessage-GetIDsFromNames(1,lpNameID,FALSE,&lppPropTags) == S_OK)
{
int nFieldType = PT_BOOLEAN;
prop.ulPropTag=(lppPropTags-aulPropTag[0]|nFieldType);
prop.Value.b = FALSE;
m_pMessage-SetProps(1,&prop,NULL);
MAPIFreeBuffer(lppPropTags);
}

Please let me know if something wrong with what I am doing.

Thanks in advance.

For Microsoft Exchange 2007

Go to Microsoft Exchange console, expand organisation Configuration, click hub transport select remote domain. Go to the properties of remote domain click on format of original message sent as attachment to journal report.
Within charactor sets
MIME character Set....Select none
Non-MIME character set...select none.

Please reply if your problem solved

Hello

I have been having a similar problem with some customers who can get simple mapi working fine from our software, but extended mapi they get the email with the attached winmail.dat.

I am using the Delphi ExtendedMAPI library that Dmitry Streblechenko mentions on his site.

I am also using his Outlook Spy progrma (Fantastic tool btw!)to check my results. both myself and the customer are sendnig using outlook 2007 sp1 through exchange server (mine is 6.5, dont know what the customer has) to outlook express.

On mine the simple mapi has winmail.dat and extended mapi works fine?? very odd.

On the customers the simple mapi works fine, but the extended mapi they get the winmail.dat.




I am doing the following in my code:

In the delphi mapi library PR_EMS_AB_SEND_TNEF 0x8191 and PR_SEND_RICH_TEXT_INFO 0x3A40 exist.

Also PR_EMS_AB_SEND_TNEF shows in Outlook Spy as having GUID {00062008-0000-0000-C000-000000000046}

UseTNEF 0x8582 doesnt exist and when created doesnt show a GUID in Outlook Spy.

If I set PR_EMS_AB_SEND_TNEF then PR_SEND_RICH_TEXT_INFO also gets set automatically.

This does not happen if I use UseTNEF and so has to be set manually.

I saw your comment about not explicitly using the property id and wondering if that is what i am using

PropertyID is type ULONG and is passed the following constant:
PR_EMS_AB_SEND_TNEF = (ULONG($8191) shl 16) or PT_BOOLEAN;

// Initialise and set the details of the property we want to modify
FillChar(NewProperty, SizeOf(TSPropValue), 0);
NewProperty.ulPropTag := PropertyId;
NewProperty.Value.b := SmallInt(Value);

// Update said property
SetPropResult := MapiProp.SetProps(1, @NewProperty, Problems);

This is not likely to work despite showing ok in Outlook Spy as far as exchange is concerned?