Results 1 to 3 of 3

Thread: Send Email Using Outlook 2000

  1. #1
    Join Date
    May 2003
    Posts
    3,041
    Rep Power
    0

    Default Send Email Using Outlook 2000

    I do not know if this works with Outlook Express, but I susccessfuly did this with Outlook 2000 and

    1. Add OutlookApplication component to form.
    Should be found on servers tab. If not, just import the ActiveX comonent.

    2. Declare a local variable like so:
    var MI : MailItem;

    3.MI := OutlookApplication1.CreateItem(olMailItem) as MailItem;
    MI.Recipients.Add('webmaster@techjamaica.com& #039;
    MI.Subject := 'Hail Up Yardies';
    MI.Body := 'Just a irie coder saying hi';
    MI.Attachments.Add('C:\afile.zip', EmptyParam, EmptyParam, EmptyParam);
    MI.Send;

    4. Invoke the procedure and sit back.

  2. #2
    Join Date
    Jul 2004
    Posts
    332
    Rep Power
    0

    Default Re:Send Email Using Outlook 2000

    Quote Originally Posted by MatrOnyx
    I do not know if this works with Outlook Express, but I susccessfuly did this with Outlook 2000 and

    1. Add OutlookApplication component to form.
    Should be found on servers tab. If not, just import the ActiveX comonent.

    2. Declare a local variable like so:
    var MI : MailItem;

    3.MI := OutlookApplication1.CreateItem(olMailItem) as MailItem;
    MI.Recipients.Add('webmaster@techjamaica.com'
    MI.Subject := 'Hail Up Yardies';
    MI.Body := 'Just a irie coder saying hi';
    MI.Attachments.Add('C:\afile.zip', EmptyParam, EmptyParam, EmptyParam);
    MI.Send;

    4. Invoke the procedure and sit back.

    im lost what r u saying

  3. #3
    Join Date
    Aug 2002
    Posts
    6,223
    Rep Power
    0

    Default Re:Send Email Using Outlook 2000

    Reminds me of something I did with Outlook that, using a batch file to run the commands, zipped up certain files (filenames contained in a separate list) and emailed them (three emails) out to a specific mail recipient. All in one click!

    Code:
    @echo off
    cd "\2003-2004"
    wzzip -ex cc1.zip @kim.txt
    wzzip -ex cc2.zip @kim3.txt
    wzzip -ex fp.zip @kim2.txt
    
    "C:\Program Files\Microsoft Office\Office10\Outlook.exe" /c IPM.Note.Kim2 /a "e:\2003-2004\cc1.zip" 
    rem pause
    "C:\Program Files\Microsoft Office\Office10\Outlook.exe" /c IPM.Note.Kim2 /a "e:\2003-2004\cc2.zip"
    rem pause
    "C:\Program Files\Microsoft Office\Office10\Outlook.exe" /c IPM.Note.Kim2 /a "e:\2003-2004\fp.zip"
    if errorlevel 1 then goto error2
    goto end
    :error2
    pause
    :end

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •