var search: string; buf: TclByteArray; begin try clImap41.UserName := 'user'; clImap41.Password := '***'; clImap41.Server := 'imap.gmail.com'; clImap41.Port := 993; clImap41.UseTLS := ctAutomatic; clImap41.Open(); clImap41.SelectMailBox('INBOX'); search := 'Grüße'; buf := TclTranslator.GetBytes(search, 'utf-8'); Memo1.Lines.Clear(); clImap41.SendTaggedCommand('SEARCH CHARSET UTF-8 %s {%d}', [IMAP_CONTINUE], ['SUBJECT', Length(buf)]); clImap41.Connection.WriteBytes(buf); buf := TclTranslator.GetBytes(#13#10, 'utf-8'); clImap41.Connection.WriteBytes(buf); clImap41.WaitResponse([IMAP_OK]); Memo1.Lines.AddStrings(clImap41.Response); finally clImap41.Close(); end; end;
var search: string; searchLen: Integer; buf: PclChar; str: TStream; begin try clImap41.UserName := 'user'; clImap41.Password := '***'; clImap41.Server := 'imap.gmail.com'; clImap41.Port := 993; clImap41.UseTLS := ctAutomatic; clImap41.Open(); clImap41.SelectMailBox('INBOX'); search := 'Grüße'; searchLen := TclTranslator.GetByteCount(search, 'utf-8'); GetMem(buf, searchLen); str := TMemoryStream.Create(); try TclTranslator.GetBytes(search, buf, searchLen, 'utf-8'); str.Write(buf^, searchLen); str.Write(PclChar(GetTclString(#13#10))^, Length(#13#10)); str.Position := 0; Memo1.Lines.Clear(); clImap41.SendTaggedCommand('SEARCH CHARSET UTF-8 %s {%d}', [IMAP_CONTINUE], ['SUBJECT', searchLen]); Memo1.Lines.AddStrings(clImap41.Response); clImap41.Connection.WriteData(str); clImap41.WaitResponse([IMAP_OK]); Memo1.Lines.AddStrings(clImap41.Response); finally str.Free(); FreeMem(buf); end; finally clImap41.Close(); end; end;
Trouble logging in? Simply enter your email address OR username in order to reset your password.
For faster and more reliable delivery, add admin@clevercomponents.com to your trusted senders list in your email software.