joaosaidel
Occasional Contributor
Joined 4 years ago
User Profile
User Widgets
Contributions
SendEmail using Gmail
Hi guys, i need your help, i from Brazil, i'm trying to use SendEmail with Gmail, but i cann't. I tried to using two ways, (I've tried everything, I don't know what else to do) The simple way procedure Test; begin if SendMail('testcompletesuprema@gmail.com', 'smtp.gmail.com', 'João Saidel', 'jp2822@gmail.com', 'Notification', 'Hello Clare, Your application is nice.', 'C:\File1.txt', 'C:\File1.txt') then Log.Message('Mail was sent') else Log.Warning('Mail was not sent'); end; and function SendEmail(mFrom, mTo, mSubject, mBody, mAttach); var i, schema, mConfig, mMessage; begin try schema := 'http://schemas.microsoft.com/cdo/configuration/'; mConfig := Sys.OleObject('CDO.Configuration'); mConfig.Fields.Item(schema + 'sendusing') := 2; // cdoSendUsingPort mConfig.Fields.Item(schema + 'smtpusessl') := true; // Use SSL mConfig.Fields.Item(schema + 'smtpserver') := '"smtp.gmail.com'; mConfig.Fields.Item(schema + 'smtpserverport') := 465; mConfig.Fields.Item(schema + 'smtpauthenticate') := 1; // Authentication mechanism mConfig.Fields.Item(schema + 'sendusername') := 'testcompletesuprema@gmail.com'; // User name (if needed) mConfig.Fields.Item(schema + 'sendpassword') := ******; // User password (if needed) mConfig.Fields.Item(schema + 'smtpconnectiontimeout') := 60; // User password (if needed) mConfig.Fields.Update; mMessage := Sys.OleObject('CDO.Message'); mMessage.Configuration := mConfig; mMessage.From := mFrom; mMessage.To := mTo; mMessage.Subject := mSubject; mMessage.HTMLBody := mBody; aqString.ListSeparator := ','; for i := 0 to aqString.GetListLength(mAttach) - 1 do mMessage.AddAttachment(aqString.GetListItem(mAttach, i)); mMessage.Send; //Log.Message('Message to <' + mTo + '> was successfully sent'); //Result := True; //except //Log.Error('Email cannot be sent', ExceptionMessag); //Result := False; // end; end; procedure MainTest; begin if SendEmail('testcompletesuprema@gmail.com', 'jp29822@gmail.com', 'Subject', 'Message body', 'c:\File1.txt') then log.Message(' Message was sent') else Log.Warning('Message was not sent'); end;Solved1.5KViews0likes7Comments