Enviar Email API, Form-data usando metodo PUT

TRodrigues_ · 29 Dezembro, 2023

Srs bom dia!

Estou tentando enviar email com anexo utilizando API com metodo PUT, porem retorna bad requestion, algo poderia me ajudar, segue minha função abaixo:

function enviaremailS3_2({sCodAdm, sURL, sToken, assunto, corpoHtml, Destinatarios, Anexos : String}): Integer;
var iRetorno: Integer;
sURLDownload: String;
Parametros : TIdMultipartFormDataStream;
HTTPClient : TIdHTTP;
begin
iRetorno := 0;

Parametros := TIdMultiPartFormDataStream.Create;
HTTPClient := TIdHTTP.Create;
try
try
Parametros.AddFormField('iCodAdm', '4');
Parametros.AddFormField('Assunto', 'Extrato');
Parametros.AddFormField('Corpo', '<body>Extrato de Comissao</body>');
Parametros.AddFormField('Destinatarios', '[email protected]');
Parametros.AddFile('Anexos', 'D:\CSV\DocumentosS3\1400000014_87138.pdf');

HTTPClient.Request.CustomHeaders.Clear;

HTTPClient.Request.CustomHeaders.Values['Authorization'] := 'Bearer ' + sToken;

HTTPClient.Request.Accept := 'application/json';
HTTPClient.Request.ContentType := 'application/x-www-form-urlencoded';
HTTPClient.Request.ContentEncoding := 'multipart/form-data';

sURLDownload := HTTPClient.Put('https://webapihomologacao.com.br/api/v1/EnvioEmail/EnviarEmailAmazon',Parametros);

if HTTPClient.ResponseCode = 200 then
Result:= 0
else
Result:= 1;
except on E: Exception do
begin
Result := -1;
end;
end;
finally
FreeAndNil(Parametros);
FreeAndNil(HTTPClient);
end;
end;

Entrar

Sobre nós...

Enviar Email API, Form-data usando metodo PUT

Recommended Posts

TRodrigues_

Link para o comentário

Compartilhar em outros sites

Crie uma conta ou entre para comentar

Criar uma conta

Entrar

Links Rápidos

Links Rápidos

ACBr Pro

SOBRE

Sobre nós...

Informação Importante