[Delphi] компонент NMSMTP

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by Lotrein, 27 Feb 2012.

  1. Lotrein

    Lotrein New Member

    Joined:
    13 Dec 2011
    Messages:
    13
    Likes Received:
    0
    Reputations:
    0
    Можно ли с помощью компонента NMSMTP отправить изображение? Если да, то как? Если нет, то каким образом можно это реализовать в среде Делфи?
    В вопросах для новичков активность нулевая. Нагуглить дельного не смог.
     
  2. DYUMON

    DYUMON New Member

    Joined:
    15 Sep 2010
    Messages:
    68
    Likes Received:
    2
    Reputations:
    0
    код не мой за ошибки не отвечаю но попробуй так
    PHP:
    AnsiString sFile;  
      
    TIdAttachment *pAttachment;
        
    sFile "c:\\a.txt"
         
    pAttachment = new TIdAttachment(IdMessage1->MessageParts,sFile);
        
    IdMessage1->ContentType "multipart/mixed";
        
    IdMessage1->MessageParts->Add();  
      
    IdMessage1->MessageParts->Items[0] = pAttachment;      IdMessage1->Body->Text"Письмо от рассылателя писем";    IdMessage1->From->Text"";    IdMessage1->Recipients->EMailAddresses"";   
     
    IdMessage1->Subject="Прайс лист от "
         
    IdSMTP1->UserId=""
       
    IdSMTP1->Password="";
        
    IdSMTP1->Host="smtp.bk.ru";  
      
    IdSMTP1->Port25;  
      
    IdSMTP1->Connect(); 
       
    IdSMTP1->Send(IdMessage1);   
     
    IdSMTP1->Disconnect();
    написано на сях но не проблемма переложить на delphi