offline
- Miroslav R. Maričić
- diplomirani inženjer mašinstva, profesor
- Pridružio: 06 Jun 2012
- Poruke: 229
- Gde živiš: Hajdučica, Banat, Srbija
|
Написао сам програм који из једног PDF фајла са платним листићима свих запослених у школи формира појединачне PDF фајлове, за сваког запосленог и шаље им на њихове имејл адресе. Отворио сам посебан налог у Gmail-у који служи само за то (ако дође инспектор рада да могу лако да му докажем да сваки запослени редовно добија исплатни листић  ).
Програм лепо ради код мене, па сам га поклонио мом пријатељу и колеги у суседној школи. И код њега је лепо радио, све док Gmail није одједном престао да шаље мејлове и почео да блокира слање истих. Након неуспелог слања, стигне му порука од Gmail-а да је блокирао слање мејла са несигурне апликације.
Отишао сам код њега, ушао у подешавања Gmail-а и дозволио/омогућио ону опцију да могу да се шаљу мејлови и са сумњивих/непоузданих апликација (та опција је код мене стално укључена).
Међутим, и након тога, Gmail и даље блокира слање мејлова! Значи, опција за дозволу слања са непоузданих апликација је укључена, а Gmail увек и даље блокира слање. И тако стално: Gmail блокира слање, ја одем до те опције и видим да је она омогућена. Не схватам зашто...
Да ли постоји нека опција у Gmail-у у којој бих могао да означим програме/апликације који су од поверења, тј. за које не желим да Gmail блокира? Или, да ли постоји неко друго решење?
Код мене и даље све ради префектно.
Део кода који шаље мејл:
//-------------------------------------------------------------------------------------------------
FUNCTION SaljiMejl( cPeriod, sm_to, sm_TextBody, sm_subject, sm_att, sm_confirm, cIme, cPrezime, cJmbg )
LOCAL loCfg, loMsg, cPath:=cProgStaza + "\Trezor\" + cPeriod, lPoslato:=.T.
LOCAL sm_cc:="", i:=0
LOCAL sm_bcc:=""
LOCAL sm_confirm_read:=IIF( sm_confirm=="1", .T., .F. )
LOCAL sm_Body:='<html><head><meta content="text/html; charset=utf-8" http-equiv="content-type"><title></title></head><body>'+;
sm_TextBody + '</body></html>'
LOCAL lSSL:=.T.
LOCAL sm_priority:=1
LOCAL cString:=cJmbg + LEFT( cPeriod, 4 ) + SUBSTR( cPeriod, 5, 2 ) + RIGHT( cPeriod, 1 ) // jmbg + godina + mesec + deo_plate
#xcommand TRY => BEGIN SEQUENCE WITH {|o| break(o)}
#xcommand CATCH [<!oErr!>] => RECOVER [USING <oErr>] <-oErr->
#xcommand FINALLY => ALWAYS
//Please note, when using the :AddAttachment method in your scripts you must use a fully qualified pathname as the argument to the method.
// Using just a file name or a relative path will produce the error The specified protocol is unknown
// By repeating the :AddAttachment method you can attach more than one file.
// sm_priority:=2 is for High; =1 for Normal; =0 for Low
// sm_confirm_read:=.T. is for return receipt
TRY
loCfg := CREATEOBJECT( "CDO.Configuration" )
WITH OBJECT loCfg:Fields
:Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver" ) :Value := sm_servsmtp
:Item( "http://schemas.microsoft.com/cdo/configuration/smtpserverport" ) :Value := sm_portsmtp
:Item( "http://schemas.microsoft.com/cdo/configuration/sendusing" ) :Value := 2
:Item( "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ):Value := .T.
:Item( "http://schemas.microsoft.com/cdo/configuration/smtpusessl" ) :Value := lSSL
:Item( "http://schemas.microsoft.com/cdo/configuration/sendusername" ) :Value := sm_userauth
:Item( "http://schemas.microsoft.com/cdo/configuration/sendpassword" ) :Value := sm_passauth
:Update()
END WITH
loMsg := CREATEOBJECT ( "CDO.Message" )
WITH OBJECT loMsg
:BodyPart:Charset := "utf-8"
:Configuration := loCfg
:From := sm_from
:To := sm_to
:Subject := sm_subject
:Bcc := sm_bcc
:Cc := sm_cc
:TextBody := sm_TextBody //plain text
:HTMLBody := sm_Body //html text
:HTMLBodyPart:Charset := "utf-8"
IF !EMPTY( sm_att )
:AddAttachment (sm_att)
END IF
WITH OBJECT loMsg:Fields
:Item("urn:schemas:httpmail:importance"):Value := sm_priority
:Item("urn:schemas:mailheader:X-Priority"):Value := sm_priority-1
IF sm_confirm_read
:Item("urn:schemas:mailheader:return-receipt-to"):Value := sm_from
:Item("urn:schemas:mailheader:disposition-notification-to"):Value := sm_from
ENDIF
:Update()
ENDWITH
:DSNOptions := 0
:Send()
// Upiši u bazu poslatih listića
2->( dbAPPEND() )
IF 2->( dbRLOCK() )
REPLACE ;
2->godina WITH LEFT( cPeriod, 4 ), ;
2->mesec WITH SUBSTR( cPeriod, 5, 2 ), ;
2->deo WITH RIGHT( cPeriod, 1 ), ;
2->ime WITH cIme, ;
2->prezime WITH cPrezime, ;
2->jmbg WITH cJmbg, ;
2->fajl WITH sm_att, ;
2->datum WITH DATE(), ;
2->vreme WITH TIME(), ;
2->status WITH "успешно"
END IF
ENDWITH
CATCH oError
lPoslato:=.F.
2->( dbAPPEND() )
IF 2->( dbRLOCK() )
REPLACE ;
2->godina WITH LEFT( cPeriod, 4 ), ;
2->mesec WITH SUBSTR( cPeriod, 5, 2 ), ;
2->deo WITH RIGHT( cPeriod, 1 ), ;
2->ime WITH cIme, ;
2->prezime WITH cPrezime, ;
2->jmbg WITH cJmbg, ;
2->fajl WITH sm_att, ;
2->datum WITH DATE(), ;
2->vreme WITH TIME(), ;
2->status WITH "НЕУСПЕШНО"
END IF
hwg_MsgStop ( "Имејл порука НИЈЕ послата"+CRLF+;
"Име: " + cIme + " " + cPrezime + CRLF+sm_to + CRLF + ;
"Error: "+TRANSFORM(oError:GenCode, NIL)+CRLF+;
"SubCode: "+TRANSFORM(oError:SubCode, NIL)+CRLF+;
"OSCode: "+TRANSFORM(oError:OsCode, NIL)+CRLF+;
"SubSystem: "+TRANSFORM(oError:SubSystem, NIL)+CRLF+;
"Description: "+oError:Description )
END
RETURN lPoslato
//--------------------------------------------------------------------------------------------------
Ако сам промашио тему, молим администратора да ми прогледа кроз прсте...
Хвала!
|
