Im using the code below, but need to ensure that the mail is sent as Text only with no HTML included. What do I need to change please? Regards Set SafeItem = CreateObject("Redemption.SafeMailItem") ' create the Outlook session Set objOutlook = CreateObject("Outlook.Application") Set objNS = objOutlook.GetNamespace("MAPI") objNS.Logon ' create the Message Set objOutlookMsg = objOutlook.CreateItem(olMailItem) SafeItem.Item = objOutlookMsg With SafeItem .Recipients.Add "Call Update<" & strRecipient & ">" .Subject = strSubject .Body = strBody '.Display .Save .Send End With Set objOutlookMsg = Nothing Set objNS = Nothing Set objOutlook = Nothing Set SafeItem = Nothing
See http://www.dimastr.com/redemption/faq.htm#11 for an example that sends using HTML. You will need to use BODY_ENCODING_TEXT (0) instead of BODY_ENCODING_TEXT_AND_HTML and EDITOR_FORMAT_PLAINTEXT instead of EDITOR_FORMAT_HTML. Dmitry Streblechenko (MVP) http://www.dimastr.com/ OutlookSpy - Outlook, CDO and MAPI Developer Tool "Terry" wrote in message news:%2382XMVNVFHA.928@TK2MSFTNGP15.phx.gbl... > Im using the code below, but need to ensure that the mail is sent as Text > only with > no HTML included. What do I need to change please? > > Regards > > Set SafeItem = CreateObject("Redemption.SafeMailItem") > ' create the Outlook session > Set objOutlook = CreateObject("Outlook.Application") > Set objNS = objOutlook.GetNamespace("MAPI") > objNS.Logon > ' create the Message > Set objOutlookMsg = objOutlook.CreateItem(olMailItem) > SafeItem.Item = objOutlookMsg > With SafeItem > .Recipients.Add "Call Update<" & strRecipient & ">" > .Subject = strSubject > .Body = strBody > '.Display > .Save > .Send > End With > Set objOutlookMsg = Nothing > Set objNS = Nothing > Set objOutlook = Nothing > Set SafeItem = Nothing > >
Thank you Dmitry, Best regards "Dmitry Streblechenko" wrote in message news:eUuewpYVFHA.2676@TK2MSFTNGP10.phx.gbl... > See http://www.dimastr.com/redemption/faq.htm#11 for an example that sends > using HTML. > You will need to use BODY_ENCODING_TEXT (0) instead of > BODY_ENCODING_TEXT_AND_HTML and EDITOR_FORMAT_PLAINTEXT instead of > EDITOR_FORMAT_HTML. > > Dmitry Streblechenko (MVP) > http://www.dimastr.com/ > OutlookSpy - Outlook, CDO > and MAPI Developer Tool > > "Terry" wrote in message > news:%2382XMVNVFHA.928@TK2MSFTNGP15.phx.gbl... >> Im using the code below, but need to ensure that the mail is sent as Text >> only with >> no HTML included. What do I need to change please? >> >> Regards >> >> Set SafeItem = CreateObject("Redemption.SafeMailItem") >> ' create the Outlook session >> Set objOutlook = CreateObject("Outlook.Application") >> Set objNS = objOutlook.GetNamespace("MAPI") >> objNS.Logon >> ' create the Message >> Set objOutlookMsg = objOutlook.CreateItem(olMailItem) >> SafeItem.Item = objOutlookMsg >> With SafeItem >> .Recipients.Add "Call Update<" & strRecipient & ">" >> .Subject = strSubject >> .Body = strBody >> '.Display >> .Save >> .Send >> End With >> Set objOutlookMsg = Nothing >> Set objNS = Nothing >> Set objOutlook = Nothing >> Set SafeItem = Nothing >> >> > >
Hi Dmitry, I'm not too sure how to declare the variables, such as PR_InetMailOverrideFormat. Regards Terry "Dmitry Streblechenko" wrote in message news:eUuewpYVFHA.2676@TK2MSFTNGP10.phx.gbl... > See http://www.dimastr.com/redemption/faq.htm#11 for an example that sends > using HTML. > You will need to use BODY_ENCODING_TEXT (0) instead of > BODY_ENCODING_TEXT_AND_HTML and EDITOR_FORMAT_PLAINTEXT instead of > EDITOR_FORMAT_HTML. > > Dmitry Streblechenko (MVP) > http://www.dimastr.com/ > OutlookSpy - Outlook, CDO > and MAPI Developer Tool > > "Terry" wrote in message > news:%2382XMVNVFHA.928@TK2MSFTNGP15.phx.gbl... >> Im using the code below, but need to ensure that the mail is sent as Text >> only with >> no HTML included. What do I need to change please? >> >> Regards >> >> Set SafeItem = CreateObject("Redemption.SafeMailItem") >> ' create the Outlook session >> Set objOutlook = CreateObject("Outlook.Application") >> Set objNS = objOutlook.GetNamespace("MAPI") >> objNS.Logon >> ' create the Message >> Set objOutlookMsg = objOutlook.CreateItem(olMailItem) >> SafeItem.Item = objOutlookMsg >> With SafeItem >> .Recipients.Add "Call Update<" & strRecipient & ">" >> .Subject = strSubject >> .Body = strBody >> '.Display >> .Save >> .Send >> End With >> Set objOutlookMsg = Nothing >> Set objNS = Nothing >> Set objOutlook = Nothing >> Set SafeItem = Nothing >> >> > >
4 bytes integer. Dmitry Streblechenko (MVP) http://www.dimastr.com/ OutlookSpy - Outlook, CDO and MAPI Developer Tool "Terry" wrote in message news:OEbtQdxWFHA.2128@TK2MSFTNGP15.phx.gbl... > Hi Dmitry, > > I'm not too sure how to declare the variables, such as > PR_InetMailOverrideFormat. > > Regards > Terry > > "Dmitry Streblechenko" wrote in message > news:eUuewpYVFHA.2676@TK2MSFTNGP10.phx.gbl... >> See http://www.dimastr.com/redemption/faq.htm#11 for an example that >> sends using HTML. >> You will need to use BODY_ENCODING_TEXT (0) instead of >> BODY_ENCODING_TEXT_AND_HTML and EDITOR_FORMAT_PLAINTEXT instead of >> EDITOR_FORMAT_HTML. >> >> Dmitry Streblechenko (MVP) >> http://www.dimastr.com/ >> OutlookSpy - Outlook, CDO >> and MAPI Developer Tool >> >> "Terry" wrote in message >> news:%2382XMVNVFHA.928@TK2MSFTNGP15.phx.gbl... >>> Im using the code below, but need to ensure that the mail is sent as >>> Text only with >>> no HTML included. What do I need to change please? >>> >>> Regards >>> >>> Set SafeItem = CreateObject("Redemption.SafeMailItem") >>> ' create the Outlook session >>> Set objOutlook = CreateObject("Outlook.Application") >>> Set objNS = objOutlook.GetNamespace("MAPI") >>> objNS.Logon >>> ' create the Message >>> Set objOutlookMsg = objOutlook.CreateItem(olMailItem) >>> SafeItem.Item = objOutlookMsg >>> With SafeItem >>> .Recipients.Add "Call Update<" & strRecipient & ">" >>> .Subject = strSubject >>> .Body = strBody >>> '.Display >>> .Save >>> .Send >>> End With >>> Set objOutlookMsg = Nothing >>> Set objNS = Nothing >>> Set objOutlook = Nothing >>> Set SafeItem = Nothing >>> >>> >> >> > >
Hi Dmitry, Works great now, many thanks Regards Terry "Dmitry Streblechenko" wrote in message news:uUHQEr8WFHA.3188@TK2MSFTNGP09.phx.gbl... >4 bytes integer. > > Dmitry Streblechenko (MVP) > http://www.dimastr.com/ > OutlookSpy - Outlook, CDO > and MAPI Developer Tool > > "Terry" wrote in message > news:OEbtQdxWFHA.2128@TK2MSFTNGP15.phx.gbl... >> Hi Dmitry, >> >> I'm not too sure how to declare the variables, such as >> PR_InetMailOverrideFormat. >> >> Regards >> Terry >> >> "Dmitry Streblechenko" wrote in message >> news:eUuewpYVFHA.2676@TK2MSFTNGP10.phx.gbl... >>> See http://www.dimastr.com/redemption/faq.htm#11 for an example that >>> sends using HTML. >>> You will need to use BODY_ENCODING_TEXT (0) instead of >>> BODY_ENCODING_TEXT_AND_HTML and EDITOR_FORMAT_PLAINTEXT instead of >>> EDITOR_FORMAT_HTML. >>> >>> Dmitry Streblechenko (MVP) >>> http://www.dimastr.com/ >>> OutlookSpy - Outlook, CDO >>> and MAPI Developer Tool >>> >>> "Terry" wrote in message >>> news:%2382XMVNVFHA.928@TK2MSFTNGP15.phx.gbl... >>>> Im using the code below, but need to ensure that the mail is sent as >>>> Text only with >>>> no HTML included. What do I need to change please? >>>> >>>> Regards >>>> >>>> Set SafeItem = CreateObject("Redemption.SafeMailItem") >>>> ' create the Outlook session >>>> Set objOutlook = CreateObject("Outlook.Application") >>>> Set objNS = objOutlook.GetNamespace("MAPI") >>>> objNS.Logon >>>> ' create the Message >>>> Set objOutlookMsg = objOutlook.CreateItem(olMailItem) >>>> SafeItem.Item = objOutlookMsg >>>> With SafeItem >>>> .Recipients.Add "Call Update<" & strRecipient & ">" >>>> .Subject = strSubject >>>> .Body = strBody >>>> '.Display >>>> .Save >>>> .Send >>>> End With >>>> Set objOutlookMsg = Nothing >>>> Set objNS = Nothing >>>> Set objOutlook = Nothing >>>> Set SafeItem = Nothing >>>> >>>> >>> >>> >> >> > >
Hi, I would like to copy a range of data from Excel to outlook in HTML format using Redemption. My clients are using variant versions of outlook and we don't want to use Word as editor. Teh excel range is contains Colour formatting and Text boxes. Is anyone provide me the code for this from Visual Basic please. Thanks in advance. url:http://www.ureader.com/msg/1081396.aspx
Construct the HTML and set the HTMLBody property. -- Dmitry Streblechenko (MVP) http://www.dimastr.com/ OutlookSpy - Outlook, CDO and MAPI Developer Tool - "aruna jyothi" wrote in message news:6b13dafd62e34130a38b068e161da262@newspe.com... > Hi, > > I would like to copy a range of data from Excel to outlook in HTML format > using Redemption. My clients are using variant versions of outlook and we > don't want to use Word as editor. > Teh excel range is contains Colour formatting and Text boxes. > Is anyone provide me the code for this from Visual Basic please. > > > Thanks in advance. > > url:http://www.ureader.com/msg/1081396.aspx
