Как сделать калькулятор в Delphi?

Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.

Как Delphi реализует многоплатформенную разработку?

Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...

Сохранение прикреплений Outlook

Советы » Почтовый клиент » Сохранение прикреплений Outlook

{ 
  Won’t some backups of your outlook attachments are filtered 
  some incoming log files? Here's the function. 
}

 uses

ComObj; {...} function

ManageAttachments(SendersName, AttachmentPath: string

; MailDelete: Boolean): Boolean; var

oApp: Variant; oNs: Variant; oFolder: Variant; oMsg: Variant; AtC: Variant; AttFilename: Variant; FileName: string

; CheckSender: string

; Counter: integer; MailCounter: integer; begin

try

oApp := CreateOLEObject('outlook.application'); try

oNs := oApp.GetNamespace('MAPI'); ofolder := oNS.GetDefaultFolder(6); // FolderTypeEnum (olFolderInbox) MailCounter := 1; // If there is any email in the Inbox if

ofolder.Items.Count > 0 then

begin

repeat

// Get the first Email oMsg := ofolder.Items(MailCounter); // Check the name or Email // Use CheckSender := oMsg.subject to search on Subject; CheckSender := oMsg.sendername; if

CheckSender = SendersName then

// Remove this line to backup all your attachments. begin

// Check how many attachments atc := oMsg.Attachments.Count; if

atc > 0 then

begin

// Get all the attachments and save them for

Counter := 1 to

atc do

begin

AttFilename := oMsg.Attachments.item(Counter).FileName; //filename := IncludeTrailingBackslash(AttachmentPath)+AttFilename; {Use this line for D5)} FileName := AttachmentPath + '' + AttFilename; oMsg.Attachments.Item(Counter).SaveAsFile(FileName); end

; end

; if

MailDelete then

begin

oMsg.Delete; // There's 1 Email less, so MailCounter - 1 Dec(MailCounter); end

; end

; // Get the next Email Inc(MailCounter); // Do until there is no more Email to check until

MailCounter > ofolder.Items.Count; end

; finally

oApp.quit; end

; except

Result := False; Exit; end

; Result := True; end

; procedure

TForm1.Button1Click(Sender: TObject); begin

// ManageAttachments(Email or name, Backup directory, MailDelete yes or no) ManageAttachments('info@cleys.com', 'F:test', False); end

; { Warning! All your selected Email will be deleted if MailDelete = true Achtung! Alle E-Mails werden geloscht, wenn MailDelete = true ist. }

Другое по теме:

Категории

Статьи

Советы

Copyright © 2024 - All Rights Reserved - www.delphirus.com