Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 5/5 - 2 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Curl - Sendinblue Mail Gönderme
#1
Question 
Merhaba, 

Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol burda mevcut. Bunu Aşağıdaki kodla göndermeyi denedim 

{"code":"failure","message":"valid 'to' email address required","data":[]}

Hatası Alıyorum.

Muhtemelen gönderim işleminde hata yapıyorum.


Sitedeki Curl Örneği :

curl -H 'api-key:your_access_key' -X POST -d '{"to":{"to@example.net":"to whom!"}, "from":["from@email.com","from email!"], "subject":"My subject", "html":"This is the <h1>HTML</h1>", "attachment":["https://domain.com/path-to-file/filename1.pdf", "https://domain.com/path-to-file/filename2.jpg"]}' 'https://api.sendinblue.com/v2.0/email'

Bu Curl Formatına göre nasıl mail gönderme işlemi yapabilirim. 



var
  Parameters: TStringList;
 Rsp: String;
begin
 Parameters := TStringList.Create;
 try
   NetHTTPClient1.CustomHeaders['api-key'] := edit1.Text;
   Parameters.Add('{"to":{"mbozkurt@gmail.com":"to whom!"}, "from":["mbozkurt@gmail.com","from email!"], "subject":"My subject", "html":"This is the <h1>HTML</h1>"}');
    Rsp := NetHTTPClient1.Post('https://api.sendinblue.com/v2.0/email', Parameters).ContentAsString;
 finally
   NetHTTPClient1.Free;
   Parameters.Free;
   Memo1.Text:=Rsp;
 end;
end;
WWW
Cevapla
#2
var
 Rsp: String;
 data: string;
 DataToSend : TStringStream;
begin
 data := '{"to":{"bozkurt.mustafa@gmail.com":"to whom!"}, "from":["mbozkurt@yirmibesyazilim.com","from email!"], "subject":"My subject", "html":"This is the <h1>HTML</h1>"}';
 DataToSend := TStringStream.Create(data, TEncoding.UTF8);
 try
   NetHTTPClient1.CustomHeaders['api-key'] := 'apikey';
Rsp := NetHTTPClient1.Post('https://api.sendinblue.com/v2.0/email',datatosend).ContentAsString;
 finally
   NetHTTPClient1.Free;
   Memo1.Text:=Rsp;
 end;

Bu Şekilde Şimdilik Gönderebildim. Rahatsızlıktan dolayı kusura bakmayın arkadaşlar.
WWW
Cevapla
#3
(30-04-2018, Saat: 22:41)elixir84 Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
var
 Rsp: String;
 data: string;
 DataToSend : TStringStream;
begin
 data := '{"to":{"bozkurt.mustafa@gmail.com":"to whom!"}, "from":["mbozkurt@yirmibesyazilim.com","from email!"], "subject":"My subject", "html":"This is the <h1>HTML</h1>"}';
 DataToSend := TStringStream.Create(data, TEncoding.UTF8);
 try
   NetHTTPClient1.CustomHeaders['api-key'] := 'apikey';
Rsp := NetHTTPClient1.Post('https://api.sendinblue.com/v2.0/email',datatosend).ContentAsString;
 finally
   NetHTTPClient1.Free;
   Memo1.Text:=Rsp;
 end;

Bu Şekilde Şimdilik Gönderebildim. Rahatsızlıktan dolayı kusura bakmayın arkadaşlar.

Merhaba,
Bir sorunun çözümünü arayıp, kendi imkanları ile bulan ve çözümünü paylaşan birine karşı, (başta ben olmak üzere) hiç kimsenin rahatsızlık duyacağını sanmıyorum. Aksine memnuniyet duyduğumu belirtmek isterim.
Bir Konu açıp, karşılaştığı soruna çözüm arayıp, cevap bekleyen ve cevap alamayınca konusunu silen (belkide çözümünü bulup paylaşmayan) üyelerimize umarım örnek olursunuz.
Sorunun çözümünü paylaştığınız için teşekkür ederim.
While true do; Hayat döngüsü, kısır değildir! Yapılan bir yanlış, o döngünün dışına çıkmanızı sağlayacaktır.
WWW
Cevapla
#4
Fesih beye katılıyorum. Sorduğu sorunun cevabını bir şekilde buldukdan sonra açtığı konuyu güncelleyen ve bulduğu cevabı paylaşandan rahatsızlık değil memnuniyet duyulur.
Katkılarınız için teşekkürler
Cevapla
#5
Konuyu hortlatmak gibi olacak ama arşiv olarak kalması acısından, anında oluşturulan dosyaları göndermek için;

function LoadFileToBase64(const AFileName: string): String;
var
 Encoder: TIdEncoderMIME;
 Base64String: String;
 LStream: TMemoryStream;
begin
 Encoder := TIdEncoderMIME.Create;
 LStream := TMemoryStream.Create;
 try
   LStream.LoadFromFile(AFileName);
   Base64String := Encoder.Encode(LStream);
   result:=Base64String;
 finally
   FreeAndNil(Encoder);
   FreeAndNil(LStream);
 end; 
end;

procedure TForm1.Button1Click(Sender: TObject);
var
Rsp: String;
data: string;
DataToSend : TStringStream;
dosyayolu:string;
begin
dosyayolu:=LoadFileToBase64('c:\myfilename.pdf');
data := '{"to":{"xxxxxx@alici.com":"to whom!"}, "from":["xxxxxx@gonderici.com","from email!"], "subject":"Konu", "html":"This is the <h1>HTML</h1>", "attachment": {"myfilename.pdf":"'+dosyayolu+'"}}';
DataToSend := TStringStream.Create(data, TEncoding.UTF8);
try
  NetHTTPClient1.CustomHeaders['api-key'] := 'apikey';
Rsp := NetHTTPClient1.Post('https://api.sendinblue.com/v2.0/email',datatosend).ContentAsString;
finally
  NetHTTPClient1.Free;
  Memo1.Text:=Rsp;
end;
end;
WWW
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Firebird localdeki verileri sunucuya gönderme ? kburaky 3 121 01-06-2018, Saat: 09:55
Son Yorum: esistem
  HHBMailComponent - Kolay Mail Gönderim Bileşeni [Delphi] hyperxman 22 879 07-05-2018, Saat: 19:44
Son Yorum: hyperxman
  toplu mail gönderimi erdogan 0 238 30-12-2017, Saat: 20:11
Son Yorum: erdogan
Information Delphi Mail Gönderme İçin Alternatif hyperxman 4 971 27-12-2017, Saat: 21:14
Son Yorum: hyperxman
  Lisviewden direk printer gönderme serhat 10 692 10-07-2017, Saat: 19:06
Son Yorum: brs



Konuyu Okuyanlar: 1 Ziyaretçi