Announcement

Collapse
No announcement yet.

Minimal Outlook Email Option?

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • #21
    Excellent Gary! Happy that it works. I just cut the code from my app and totally forgot to identify the equates. Oops
    Paul Squires
    FireFly Visual Designer (for PowerBASIC Windows 10+)
    Version 3 now available.
    http://www.planetsquires.com

    Comment


    • #22
      Originally posted by Gary Beene View Post
      Howdy, Neil,
      I haven't figured out which file to use with the COM browser, but I did find these equate values in a file that Jim Dunn sent me ...
      Code:
      %olMailItem = &H0
      %olTo = &H1
      %olCC = &H2
      %olFormatUnspecified = &H0
      %olFormatPlain = &H1
      %olFormatHTML = &H2
      %olFormatRichText = &H3
      Hi Gary,
      Outllook does not appear in the com browser, you need to use open to find and load it. normally hangs our here:
      \Program Files\Microsoft Office\Office14\MSOUTL.OLB

      Sorry for the delay, Christmas and all that

      Neil.

      Comment


      • #23
        Paul, a follow on question..

        My Outlook now has multiple accounts listed in it so I'd like to modify your code to send mail through a specified account. Have you done that?

        Comment


        • #24
          I tried selecting the desired account in Outlook before sending the email, but the email still showed up in the 1st account on the list (Peronal Folders).

          Comment


          • #25
            did a check in the roca and winapi includes and didn't see any such equates.
            Use the COM Browser to recreate the INCLUDE file. You will find the appropriate equate value in there. Let me look at what I generated..

            I found this in my Outlook 8 INCLUDE file..
            Code:
            ' OlItems enumeration
            %OlItems_olMailItem = 0
            %OlItems_olAppointmentItem = 1
            %OlItems_olContactItem = 2
            %OlItems_olTaskItem = 3
            %OlItems_olJournalItem = 4
            %OlItems_olNoteItem = 5
            %OlItems_olPostItem = 6
            It's probably that first one. Well. Ok, let me look in my mail routine. yeah I guess that's it..
            Code:
            ' ---------------------------
              '  Create a new mail item within the application
               ' You must create thru the application,'s CreateItem method; CreateObject ("NEWCOM") not supported
              ' ---------------------------
               ERRCLEAR
               LET     VW  = %OlItems_olMailItem              ' what type of item do I want?
               OBJECT CALL   oOutlookApp.CreateITem (VW) TO  oMailItem  ' must return variant?
               E           = ERR
               iRet = OBJRESULT
            ...
            MCM

            Michael Mattias
            Tal Systems Inc.
            Racine WI USA
            mmattias@talsystems.com
            http://www.talsystems.com

            Comment

            Working...
            X