小编bur*_*uri的帖子

我想开发以下VBA代码:

1. 循环遍历邮箱中的所有电子邮件项目
2. 如果有任何类型的其他项目说"日历邀请"跳过该项目.
3. 查找带附件的电子邮件
4. 如果附加文件中包含".xml"扩展名和特定标题,则将其保存到目录中,如果没有继续搜索
5. 在执行步骤4后,将所有电子邮件中的.xml附件包含在"已删除邮件"文件夹中,并通过循环删除该文件夹中的所有电子邮件.

代码工作完美除外; 例如

1. 收到8封电子邮件,其中每个邮箱都附有".xml"文件.
2. 运行代码
3. 你会看到8个项目中只有4个被成功处理,其他4个仍然在他们的位置.
4. 如果再次运行代码,现在将成功处理2个项目,而其他2个项目仍保留在您的邮箱中.

问题:在运行代码之后,它应该处理所有文件并删除它们,而不是每次运行中的一半.我想让它在一次运行中处理所有项目.

顺便说一下,每次打开Outlook时都会运行此代码.

Private Sub Application_Startup()
'Initializing Application_Startup forces the macros to be accessible from other offic apps

'Process XML emails

Dim InboxMsg As Object

Dim DeletedItems As Outlook.Folder
Dim MsgAttachment As Outlook.Attachment
Dim ns As Outlook.NameSpace
Dim Inbox As Outlook.Folder

Dim fPathTemp As String
Dim fPathXML_SEM As String
Dim fPathEmail_SEM As String
Dim i As Long
Dim xmlDoc As New MSXML2.DOMDocument60
Dim xmlTitle As MSXML2.IXMLDOMNode
Dim xmlSupNum As …

我有一个打开的Excel文件并使用VB脚本,我只需要在Excel工作表中搜索列"A",直到它与文本字符串匹配.当脚本找到匹配项时,我希望看到找到匹配项的单元格的行号.感谢您的帮助!

我正在使用JQueryUI Dialog并在下面创建了这个函数:

<script>
    $(document).ready(function() {
        $('#dialog').dialog({
                autoOpen:false,
                width:100,
                height:200,
                position:[2250,50]
           });


        $('.class112').click(function() {
           var msg = $(this).attr('id');
           $('#dialog').load('classSource/' + msg + '.html', function() {
           $('#dialog').dialog('open');
           });
        });
    });
</script>

和HTML代码:

<p class="class112" id="class1">click!</p>

<div id="dialog" style="display: none;"></div>

它工作正常,但无论定位如何,它都会在调用'open'函数后创建对话框.假设我的计算机屏幕的x:1280和y:760像素,并且CSS文件中的主体宽度和高度分别设置为3000px.每当触发对话框的'open'函数时,它都不会从之前初始化时获得X位置,请记住:

position:[2250,50]

因此,它在窗口的右侧创建对话框,而不是在声明X的位置.但Y正确输出是因为50px在我的屏幕分辨率范围内.

我想要的只是点击"点击!" 段落,我希望对话框出现在初始化位置,我可能会在水平滚动后看到它.我该怎么办？