![]() ![]() #include #include #include #define from "" #define to "" #define cc "" static const char * payload_text = err = smtp. Sends mail via the GMail SMTP server, requires libcurl #Purebasic Serial Port Example install#INSTALL + "SOCKLIB" Server$ = "" From$ = To$ = CC$ = Subject$ = "Rosetta Code" Message$ = "This is a test of sending email." PROC sendmail ( Server$, From$, To$, CC$, "", Subject$, "", Message$ ) END DEF PROC sendmail ( smtp$, from$, to$, cc$, bcc$, subject$, replyto$, body$ ) LOCAL D%, S%, skt%, reply$ DIM D% LOCAL 31, S% LOCAL 15 SYS "GetLocalTime", S% SYS "GetDateFormat", 0, 0, S%, "ddd, dd MMM yyyy ", D%, 18 SYS "GetTimeFormat", 0, 0, S%, "HH:mm:ss +0000", D% +17, 15 D% ? 31 = 13 PROC _initsockets skt% = FN _tcpconnect ( smtp$, "mail" ) IF skt% 0 : ENDWHILE PROC send ( skt%, "HELO " + FN _gethostname ) PROC mail ( skt%, "MAIL FROM: ", from$ ) IF to$ "" PROC list ( skt%, to$ ) IF cc$ "" PROC list ( skt%, cc$ ) IF bcc$ "" PROC list ( skt%, bcc$ ) PROC send ( skt%, "DATA" ) IF FN _writelinesocket ( skt%, "Date: " +$ D% ) IF FN _writelinesocket ( skt%, "From: " + from$ ) IF FN _writelinesocket ( skt%, "To: " + to$ ) IF cc$ "" IF FN _writelinesocket ( skt%, "Cc: " + cc$ ) IF subject$ "" IF FN _writelinesocket ( skt%, "Subject: " + subject$ ) IF replyto$ "" IF FN _writelinesocket ( skt%, "Reply-To: " + replyto$ ) IF FN _writelinesocket ( skt%, "MIME-Version: 1.0" ) IF FN _writelinesocket ( skt%, "Content-type: text/plain charset=US-ASCII" ) IF FN _writelinesocket ( skt%, "" ) IF FN _writelinesocket ( skt%, body$ ) IF FN _writelinesocket ( skt%, "." ) PROC send ( skt%, "QUIT" ) PROC _exitsockets ENDPROC DEF PROC list ( skt%, list$ ) LOCAL comma% REPEAT WHILE ASC list$ = 32 list$ = MID$ ( list$, 2 ) : ENDWHILE comma% = INSTR ( list$, "," ) IF comma% THEN PROC mail ( skt%, "RCPT TO: ", LEFT$ ( list$, comma% -1 )) list$ = MID$ ( list$, comma% +1 ) ELSE PROC mail ( skt%, "RCPT TO: ", list$ ) ENDIF UNTIL comma% = 0 ENDPROC DEF PROC mail ( skt%, cmd$, mail$ ) LOCAL I%, J% I% = INSTR ( mail$, "", I% ) IF I% IF J% THEN PROC send ( skt%, cmd$ + MID$ ( mail$, I%, J% - I% +1 )) ELSE PROC send ( skt%, cmd$ + "" ) ENDIF ENDPROC DEF PROC send ( skt%, cmd$ ) LOCAL reply$ IF FN _writelinesocket ( skt%, cmd$ ) 0 : ENDWHILE ENDPROC C #Purebasic Serial Port Example password#SSubject: = "greeting" sText := "hello" sFrom := sTo := "whomitmayconcern" sServer := "" specify your SMTP server nPort := 465 25 bTLS := True False inputbox, sUsername, Username inputbox, sPassword, password COM_Init () pmsg := COM_CreateObject ( "CDO.Message" ) pcfg := COM_Invoke ( pmsg, "Configuration" ) pfld := COM_Invoke ( pcfg, "Fields" ) COM_Invoke ( pfld, "Item", "", 2 ) COM_Invoke ( pfld, "Item", "", 60 ) COM_Invoke ( pfld, "Item", "", sServer ) COM_Invoke ( pfld, "Item", "", nPort ) COM_Invoke ( pfld, "Item", "", bTLS ) COM_Invoke ( pfld, "Item", "", 1 ) COM_Invoke ( pfld, "Item", "", sUsername ) COM_Invoke ( pfld, "Item", "", sPassword ) COM_Invoke ( pfld, "Update" ) COM_Invoke ( pmsg, "Subject", sSubject ) COM_Invoke ( pmsg, "From", sFrom ) COM_Invoke ( pmsg, "To", sTo ) COM_Invoke ( pmsg, "TextBody", sText ) COM_Invoke ( pmsg, "Send" ) COM_Release ( pfld ) COM_Release ( pcfg ) COM_Release ( pmsg ) COM_Term () #Include COM. ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |