M
mycwcgr_new
Unregistered / Unconfirmed
GUEST, unregistred user!
另外下面一段程序您能调试通过吗?
const olMailItem = 0;
var Outlook: OLEVariant;
MailItem: Variant;
begin
try
Outlook := GetActiveOleObject('Outlook.Application');
except
Outlook := CreateOleObject('Outlook.Application');
end;
MailItem := Outlook.CreateItem(olMailItem);
MailItem.Recipients.Add('mshkolnik@rs-ukraine.kiev.ua');
MailItem.Subject := 'your subject';
MailItem.Body := 'Welcome to my homepage:http://www.geocities.com/mshkolnik';
MailItem.Attachments.Add('C:/Windows/Win.ini');
MailItem.Send;
Outlook := Unassigned;
end;
const olMailItem = 0;
var Outlook: OLEVariant;
MailItem: Variant;
begin
try
Outlook := GetActiveOleObject('Outlook.Application');
except
Outlook := CreateOleObject('Outlook.Application');
end;
MailItem := Outlook.CreateItem(olMailItem);
MailItem.Recipients.Add('mshkolnik@rs-ukraine.kiev.ua');
MailItem.Subject := 'your subject';
MailItem.Body := 'Welcome to my homepage:http://www.geocities.com/mshkolnik';
MailItem.Attachments.Add('C:/Windows/Win.ini');
MailItem.Send;
Outlook := Unassigned;
end;