{"id":107,"date":"2007-05-12T14:20:40","date_gmt":"2007-05-12T12:20:40","guid":{"rendered":" http:\/\/www.nsonic.de\/blog\/2007\/05\/open-outlook-email-form-2\/"},"modified":"2007-05-12T14:20:42","modified_gmt":"2007-05-12T12:20:42","slug":"open-outlook-email-form-2","status":"publish","type":"post","link":"https:\/\/www.nsonic.de\/blog\/2007\/05\/open-outlook-email-form-2\/","title":{"rendered":"Open Outlook EMail Form (2)"},"content":{"rendered":"<p><em>Deane Hafling  wrote in message<br \/>\nnews:7kdna0$<br \/>\nrs83@forums.borland.com&#8230; <\/p>\n<p>> How can I call up the Outlook New E-mail Form???<br \/>\n><br \/>\n> I am looking at the outlook_tlb.pas right now and can&#8217;t figure out how to<br \/>\n> call it up. Any suggestions???<br \/>\n><br \/>\n><br \/>\n> Deane Hafling<br \/>\n><br \/>\n><br \/>\n<\/em><br \/>\nHere is an example without using the imported type library that shows a new<br \/>\nmessage window:<\/p>\n<p>[code lang=&#8221;delphi&#8221;]const                     \/\/ Create Outlook Enumerated constants<br \/>\n  olImportanceLow    = 0;<br \/>\n  olImportanceNormal = 1;<br \/>\n  olImportanceHigh   = 2;<br \/>\n  olOutlookAppCLSID  = &#8216;Outlook.Application&#8217;;<br \/>\n  olMailItem   = 0;<br \/>\n  olOriginator = 0;<br \/>\n  olTo         = 1;<br \/>\n  olCC         = 2;<br \/>\n  olBCC        = 3;<br \/>\n  olAttachment = 255;<br \/>\nvar<br \/>\n   i               : Integer;<br \/>\n   objOutlook,                          \/\/ Outlook.Application<br \/>\n   objOutlookMsg: variant;     \/\/ Outlook.MailItem<br \/>\nbegin<br \/>\n  \/\/ Create the Outlook session.<br \/>\n  try<br \/>\n     objOutlook := CreateOleObject(olOutlookAppCLSID);<br \/>\n  except<br \/>\n     MessageDlg(&#8216;Could not open Microsoft Outlook.  &#8216; +<br \/>\n                 &#8216;Please make sure it is installed correctly on your<br \/>\nworkstation.&#8217; +<br \/>\n                 #10#10 + &#8216;Message cannot be sent at this time.&#8217;,<br \/>\n                mtError, [mbOK], 0);<br \/>\n     Exit;<br \/>\n  end;<\/p>\n<p>  try<br \/>\n    \/\/ Create the message.<br \/>\n    objOutlookMsg := objOutlook.CreateItem(olMailItem);<br \/>\n    objOutlookMsg.Display      \/\/ Show Outlook Message Window<br \/>\n  finally<br \/>\n    objOutlookMsg    := Unassigned;    \/\/ Destroy objects<br \/>\n    objOutlook       := Unassigned;<br \/>\n  end;<br \/>\nend;<br \/>\n[\/code]<\/p>\n<p>[tags]Delphi, EMail[\/tags]<\/p>\n","protected":false},"excerpt":{"rendered":"<p>Deane Hafling wrote in message news:7kdna0$ rs83@forums.borland.com&#8230; > How can I call up the Outlook New E-mail Form??? > > I am looking&hellip;<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"spay_email":""},"categories":[11],"tags":[75,98],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p71Tml-1J","_links":{"self":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/107"}],"collection":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/comments?post=107"}],"version-history":[{"count":0,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/107\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/media?parent=107"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/categories?post=107"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/tags?post=107"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}