c# vsto Outlook.ApplicationEvents_11_NewMailEx

Status
Not open for further replies.

murdochs

New Member
Outlook version
Outlook 365 32 bit
Email Account
IMAP
Using Visual Studio 2022
outlook 365 with IMAP account
VSTO addin. c#

Event : newmaileX to capture every incoming email. If certain subject, then I enter text into the body. If body is html, I find the tag and insert after. I have create a button on ribbon to test, and the email subject is altered and new text is in the body. fine so far. When the newmailex is fired, it runs my code, but sometimes it does not save the changes, and sometimes it does.

Why ?

if I add "mailItem.Save()" this works, but I then get duplicates of the same email. Sometimes upto 10 duplicates. Is this an IMAP thing ? Below is my code.

I have tried just VBA instead of the vsto, with newmailex and i get the same results.

Code:
    void NewMail_Event(String entryIDCollection)
    {
        Outlook.NameSpace outlookNS = this.Application.GetNamespace("MAPI");
        Outlook.MailItem mailItem = null;

        try
        {
            string sTag;
            string sBody;
            int nPos;
            sTag = "<table border=\"1\" cellspacing=\"0\"><tr bgcolor=\"#f5e942\"><td><font color=\"#FF0000\" size=\"4\">";
            sTag += "This email originated from outside and was not listed in our safe senders list.<br>";
            sTag += "DO NOT action, click on any links or open attachments unless you recognise the sender and know the content is safe.";
            sTag += "</font></td></tr></table><br>";
            string sSubject = null;
            string filter = "[EXTERNAL]";
            string[] sEmails = entryIDCollection.Split(',');
            foreach (string sEmail in sEmails)
            {
                mailItem = (Outlook.MailItem)outlookNS.GetItemFromID(sEmail, Type.Missing);
                
                if (mailItem.Subject != null)
                {
                    File.AppendAllText("c:\\1data\\desktop\\vstolog.txt", mailItem.Subject + "\r\n");
                    if (mailItem.Subject.Length >= 10)
                    {
                        if (mailItem.Subject.ToUpper().StartsWith(filter))
                        {
                            sSubject = mailItem.Subject.Substring(filter.Length, mailItem.Subject.Length - filter.Length);
                            mailItem.Subject = sSubject;

                            sBody = mailItem.HTMLBody;

                            if (sBody.Contains("<body>") || sBody.Contains("<BODY>"))
                            {
                                if (sBody.Contains("<BODY>"))
                                {
                                    sBody = sBody.Replace("<BODY>", "<body>" + sTag);
                                }
                                else
                                {
                                    sBody = sBody.Replace("<body>", "<body>" + sTag);
                                }
                            }
                            else
                            {
                                if (sBody.Contains("<body") || sBody.Contains("<BODY"))
                                {

                                    if (sBody.Contains("<body"))
                                    {
                                        nPos = sBody.IndexOf("<body", 0);
                                    }
                                    else
                                    {
                                        nPos = sBody.IndexOf("<BODY", 0);
                                    }
                                    nPos = sBody.IndexOf(">", nPos);
                                    sBody = sBody.Insert(nPos + 1, sTag);

                                }
                                else
                                {
                                    sBody = sTag + sBody;
                                }
                            }

                            if (mailItem.BodyFormat == OlBodyFormat.olFormatHTML)
                            {
                                mailItem.HTMLBody = sBody;
                            }
                            else
                            {
                                mailItem.Body = sBody;
                            }
                            //mailItem.Close(OlInspectorClose.olSave);
                        }
                    }
                }
                Marshal.ReleaseComObject(mailItem);
                mailItem = null;
            }
        }

        catch (Exception eX)
        {
            MessageBox.Show(eX.Message);
        }

        finally
        {
            if (mailItem != null) Marshal.ReleaseComObject(mailItem);
            mailItem = null;
            if (outlookNS != null) Marshal.ReleaseComObject(outlookNS);
            outlookNS = null;
        }
    }
 
Using Visual Studio 2022
outlook 365 with IMAP account
VSTO addin. c#

Event : newmaileX to capture every incoming email. If certain subject, then I enter text into the body. If body is html, I find the tag and insert after. I have create a button on ribbon to test, and the email subject is altered and new text is in the body. fine so far. When the newmailex is fired, it runs my code, but sometimes it does not save the changes, and sometimes it does.

Why ?

if I add "mailItem.Save()" this works, but I then get duplicates of the same email. Sometimes upto 10 duplicates. Is this an IMAP thing ? Below is my code.

I have tried just VBA instead of the vsto, with newmailex and i get the same results.

Code:
    void NewMail_Event(String entryIDCollection)
    {
        Outlook.NameSpace outlookNS = this.Application.GetNamespace("MAPI");
        Outlook.MailItem mailItem = null;

        try
        {
            string sTag;
            string sBody;
            int nPos;
            sTag = "<table border=\"1\" cellspacing=\"0\"><tr bgcolor=\"#f5e942\"><td><font color=\"#FF0000\" size=\"4\">";
            sTag += "This email originated from outside and was not listed in our safe senders list.<br>";
            sTag += "DO NOT action, click on any links or open attachments unless you recognise the sender and know the content is safe.";
            sTag += "</font></td></tr></table><br>";
            string sSubject = null;
            string filter = "[EXTERNAL]";
            string[] sEmails = entryIDCollection.Split(',');
            foreach (string sEmail in sEmails)
            {
                mailItem = (Outlook.MailItem)outlookNS.GetItemFromID(sEmail, Type.Missing);
               
                if (mailItem.Subject != null)
                {
                    File.AppendAllText("c:\\1data\\desktop\\vstolog.txt", mailItem.Subject + "\r\n");
                    if (mailItem.Subject.Length >= 10)
                    {
                        if (mailItem.Subject.ToUpper().StartsWith(filter))
                        {
                            sSubject = mailItem.Subject.Substring(filter.Length, mailItem.Subject.Length - filter.Length);
                            mailItem.Subject = sSubject;

                            sBody = mailItem.HTMLBody;

                            if (sBody.Contains("<body>") || sBody.Contains("<BODY>"))
                            {
                                if (sBody.Contains("<BODY>"))
                                {
                                    sBody = sBody.Replace("<BODY>", "<body>" + sTag);
                                }
                                else
                                {
                                    sBody = sBody.Replace("<body>", "<body>" + sTag);
                                }
                            }
                            else
                            {
                                if (sBody.Contains("<body") || sBody.Contains("<BODY"))
                                {

                                    if (sBody.Contains("<body"))
                                    {
                                        nPos = sBody.IndexOf("<body", 0);
                                    }
                                    else
                                    {
                                        nPos = sBody.IndexOf("<BODY", 0);
                                    }
                                    nPos = sBody.IndexOf(">", nPos);
                                    sBody = sBody.Insert(nPos + 1, sTag);

                                }
                                else
                                {
                                    sBody = sTag + sBody;
                                }
                            }

                            if (mailItem.BodyFormat == OlBodyFormat.olFormatHTML)
                            {
                                mailItem.HTMLBody = sBody;
                            }
                            else
                            {
                                mailItem.Body = sBody;
                            }
                            //mailItem.Close(OlInspectorClose.olSave);
                        }
                    }
                }
                Marshal.ReleaseComObject(mailItem);
                mailItem = null;
            }
        }

        catch (Exception eX)
        {
            MessageBox.Show(eX.Message);
        }

        finally
        {
            if (mailItem != null) Marshal.ReleaseComObject(mailItem);
            mailItem = null;
            if (outlookNS != null) Marshal.ReleaseComObject(outlookNS);
            outlookNS = null;
        }
    }

Should I finish the code with "mailitem.save" ? Initally, it was inserting my tag in teh body without this line. but somewhere I have broken it, and now it does not work. the event fires each time, but the changes are not made in the email. If I add "mailitem.save" this is when I get the double up emails in the inbox. So I suppose, if I can get an answer if I should be using the save or not, then will give me somewhere to work from. thanks in advanced
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
A Not able to load an add-in for outlook 2007 developed in VSTO 2005 Outlook VBA and Custom Forms 2
T VSTO Outlook add-in: Categories not displaying correctly Outlook VBA and Custom Forms 3
O VSTO - Outlook Add-In - Get GAL data Outlook VBA and Custom Forms 1
K Outlook VSTO Add-in not visible in Trust Center after installing Outlook VBA and Custom Forms 1
M Will a VSTO C# Outlook 2007 Add-in work on Outlook 2010? Outlook VBA and Custom Forms 1
X Highlight block of text in an outlook mail using c#2008 vsto Outlook VBA and Custom Forms 1
W My VSTO 3.0 Outlook addin doesn’t load Outlook VBA and Custom Forms 1
N VSTO outlook 2007 addin installation problem Outlook VBA and Custom Forms 1
O Third-party VSTO 2005 SE plug-in for Outlook 2007: what should I signwith a publisher certificate? Outlook VBA and Custom Forms 3
O Outlook VSTO 2005 plug-in installer: CLSID = ? Outlook VBA and Custom Forms 3
E Opening WinForm in Outlook 2003 VSTO Addin with Wordmail enabled Outlook VBA and Custom Forms 1
M Develop for OL2003 on OL2007 machine using VS2008 and VSTO? Outlook VBA and Custom Forms 1
E VSTO 2008 how to bind Form Region controls to Item data fields Outlook VBA and Custom Forms 2
E VSTO 2008 how to bind Form Region controls to Item data fields Outlook VBA and Custom Forms 3
M VSTO deployment? Outlook VBA and Custom Forms 1
M VSTO C#: How do I declare an application scope variable? Outlook VBA and Custom Forms 2
S VSTO calling unmanged function Outlook VBA and Custom Forms 3
G Interop or VSTO or ? Outlook VBA and Custom Forms 2
M VSTO 2007 Addin auto-disabled on one machine but not another on installation? Outlook VBA and Custom Forms 1
O using VSTO to get Available Mailboxes Outlook VBA and Custom Forms 11
M Outlook2007 and VSTO, handle the Click on the Save Button in the IPM.Note dialog HOWTO? Outlook VBA and Custom Forms 4
M VSTO Outlook2007 Addin. After switching from 3.5 to 2.0 Framework i get "'MSB3185: EntryPoint not sp Outlook VBA and Custom Forms 1
C Problem installing VSTO AddIn on Vista Outlook VBA and Custom Forms 3
O Any 3rd party tool that sync (mirror) from Outlook Calendar to Google Calendar? Using Outlook 5
T Outlook is categorizing emails incorrectly Using Outlook 1
R Legacy Outlook on Mac Email Cache Using Outlook 0
A Outlook can't remember outlook.com, Exchange password. Using Outlook 3
S Related messages show in main Outlook window vice new Advanced Find windows Using Outlook 1
H Force Outlook 2019 with GMail 2-Step to Require Login? Using Outlook 0
G Retaining Tabs in outlook body Using Outlook 2
V Setting up Outlook 2021 on new computer Using Outlook 2
G Add Map It button to Custom Contacts Form in Outlook Outlook VBA and Custom Forms 1
X Custom icon (not from Office 365) for a macro in Outlook Outlook VBA and Custom Forms 1
Victor_50 Problem - Google Workspace will stop "unsafe" access to Outlook end 2024 Using Outlook 3
C New pc, new outlook, is it possible to import auto-complete emailaddress Using Outlook 4
T Outlook 365 won't take new working password Using Outlook 0
S Create Outlook Task from Template and append Body with Email Body Outlook VBA and Custom Forms 4
P Can't add custom field to custom Outlook form, it always adds to the Folder instead Outlook VBA and Custom Forms 2
B Sync Outlook Public Folders to Contacts Using Outlook 2
D Delete Outlook emails from MS server Using Outlook 12
B Outlook tasks and PDF Using Outlook 4
D Outlook 2019 is no longer asking for password ... Using Outlook 5
Kika Melo How to mark as Junk any message not from Contacts (in Outlook.com) Using Outlook 3
L Outlook attachments from OneDrive as links Using Outlook 0
G Outlook 365 My iCloud Outlook doesn’t work after reinstalling Microsoft365 on Windows 10 PC – now I get error message on contacts and calendar Using Outlook 1
T How to Export & Import GMAIL Contacts into Outlook 2021 ? Using Outlook 4
M Synchronization and backup of Outlook from local to server. Using Outlook 8
T How to get an EVENT COLOR option in Outlook 2021 ? Using Outlook 0
K How can I delete an e-mail from Outlook Using Outlook 1
V Outlook Error The Attempted operation Failed. An Object Could Not be found Outlook VBA and Custom Forms 0

Similar threads

Back
Top