🚀 go-pugleaf

Thank you.   But what is OffsetFromUTC




"Remy Lebeau (TeamB)" <no.spam@no.spam.com> wrote in message 
news:41e2c814$1@newsgroups.borland.com...
>
> "Steve Westwood" <S-Westwood@RCN.COM> wrote in message
> news:41e288a7$1@newsgroups.borland.com...
>
>> I thought it should have been:
>>   NMSMTP1->PostMessageA->Date = Now();
>
> Date is a string, whereas Now() returns a TDateTime instead.  E-mail dates
> must be formatted in a special way.  The default TDateTime-to-String
> conversion does not use the proper format at all.  You would have to 
> convert
> the TDateTime manually, ie:
>
>    AnsiString __fastcall GetGMTOffsetStr()
>    {
>        int iBias:
>        TIME_ZONE_INFORMATION tmez = {0};
>
>        switch( GetTimeZoneInformation(&tmez) )
>        {
>            case TIME_ZONE_ID_INVALID:
>                throw Exception();
>                break;
>            case TIME_ZONE_ID_UNKNOWN:
>                iBias = tmez.Bias;
>                break;
>            case TIME_ZONE_ID_DAYLIGHT:
>                iBias = (tmez.Bias + tmez.DaylightBias);
>                break;
>            case TIME_ZONE_ID_STANDARD:
>                iBias = (tmez.Bias + tmez.StandardBias);
>                break;
>            default:
>                throw Exception();
>                break;
>        }
>
>        TDateTime dt = EncodeTime(abs(iBias) / 60, abs(iBias) % 60, 0, 0);
>        if( iBias > 0 )
>            dt = (0 - dt);
>
>        WORD wHour, wMin, wSec, wMSec;
>        dt.DecodeTime(&wHour, &wMin, &wSec, &wMSec);
>
>        AnsiString Result = Format(" %0.2d%0.2d", ARRAYOFCONST(( wHour,
> wMin )) );
>        if( OffsetFromUTC < 0.0 )
>            Result[1] = '-';
>        else
>            Result[1] = '+';
>
>        return Result;
>    }
>
>    AnsiString __fastcall DateTimeToInternetStr(const TDateTime &AValue)
>    {
>        static char* wdays[7] = {"Sun", "Mon", "Tue", "Wed", "Thu", "Fri",
> "Sat"};
>        static char* monthnames[12] = {"Jan", "Feb", "Mar", "Apr", "May",
> "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"};
>
>        WORD wYear, wMonth, wDay;
>        AValue.DecodeDate(&wYear, &wMonth, &wDay);
>
>        return Format("%s, %d %s %d %s %s",
>                ARRAYOFCONST(( wdays[AValue.DayOfWeek()-1], wDay,
> monthnames[wMonth-1],
>                        wYear, AValue.FormatString("HH:NN:SS"),
> GetGMTOffsetStr() )) );
>    }
>
>    NMSMTP1->PostMessageA->Date = DateTimeToInternetStr(Now());
>
>
> In any case, I would suggest not using TNMSMTP at all.  The NetMasters
> components are notoriously buggy and problematic in general.
>
>
> Gambit
>
>