Attach file using Webbrowser Delphi

Question

I am developing a tool to automate the sending of emails from the company, I wanted to know how to automatically load an attachment as in this screenshot

Remember that I need to make use of Twebbrowser .

I need him to do this, by clicking on the button, automatically add the attachment !

Answer 1

It is not possible to change this field because it is read-only due to security issues.

What you can do is send the file separately using the components of Indy, the TIdMultipartFormDataStream and TIdHTTP.

Uses
  IdMultipartFormData, IdHTTP,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient;

//....

procedure EnviarArquivo(const URL, Campo, Arquivo: string);
var
  IdHttp: TIdHTTP;
  Parametros: TIdMultipartFormDataStream;
  SS: TStringStream;
begin
  IdHttp := TIdHTTP.Create(nil);
  SS := TStringStream.Create();
  try
    Parametros := TIdMultipartFormDataStream.Create;
    try
      Parametros.AddFile(Campo, Arquivo);
      try
        IdHttp.Post(URL, Parametros, SS);
        ShowMessage('Status: ' + IntToStr(IdHttp.ResponseCode));
      except
        on E: Exception do
          ShowMessage('Post Error: ' + E.Message);
      end;
    Memo1.Text := SS.DataString;
    finally
      Parametros.Free;
    end;
  finally
    IdHttp.Free;
    SS.Free;
  end;
end;

Use like this:

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
  EnviarArquivo('<URL>', 'attachmentElement', '<CaminhoDoArquivo>');
end;