Question

我有代码将Outlook附件导出到本地文件夹。

我注意到签名中的小图片也保存为附件。

我认为排除签名图像可以使用If来完成：

<form enctype="multipart/form-data" name="formname" id="formname"  method="post" action="">
 <div class="post-menu col-lg-7 col-sm-7 col-xs-12">
              <ul>
                <li><a href="javascript:void(0)"><img src="<?php echo base_url(); ?>img/camera1.png" alt="Uplod photo" id="imgupload" ></a>
                <input type="file" id="fileupload" name="fileUp" class="hidden" accept="image/*">
                </li>
                <li><a href=""><img src="<?php echo base_url(); ?>img/add-peopel.png" alt="Add Friend" ></a></li>
                <li><a href=""><img src="<?php echo base_url(); ?>img/add-location.png" alt="Location" ></a></li>
              </ul>
            </div>
            <div class="post-right col-lg-5 col-sm-5 col-xs-12">
              <ul>
                <li><a href="" class="slt"><img src="<?php echo base_url(); ?>img/frends.png" alt="friends"> Friends <img src="<?php echo base_url(); ?>img/arrow.png" alt="Droop Down"> </a></li>
                <li><input type="button" class="bt1" value="Post" id="post_button"></li>
              </ul>
            </div>
</form>

我不知道在我的代码中放置的位置，尤其是End If（在Next之后或之前）。

这是我的代码：

 For i = lngCount To 1 Step -1
 If objAttachments.Item(i).Size > 6000 Then

Answer 1

如果您在下载特定文件类型后，可以检查附件的扩展名（未经测试，但应该有效）：

var Util = require('./path/to/helper.js);

Util.fullLogin();

但我对VBA几乎没有任何了解，也不知道在哪里放置在我的代码中，尤其是EndIf（在Next之前或之后）

这些必须按顺序进行 -
如果您使用Public Sub Renamefileandexcludesignature(Item As Outlook.MailItem) Dim Atmt As Outlook.Attachment Dim SavePath As String Dim FileName As String Dim objFSO As Object Dim sExt As String SavePath = "C:\Users\Antoine\Documents" FileName = "Antoine" & ".csv" Set objFSO = CreateObject("Scripting.FileSystemObject") For Each Atmt In Item.Attachments sExt = objFSO.GetExtensionName(Atmt.FileName) Select Case sExt Case "jpg", "png" 'Do nothing Case Else Atmt.SaveAsFile SavePath & "\" & FileName End Select Next Set Atmt = Nothing End Sub然后使用IF，则必须先使用FOR关闭NEXT，然后FOR关闭END IF。<登记/> 如果您使用IF然后使用FOR，则必须先使用IF关闭END IF，然后才能使用IF关闭NEXT。

希望这是有道理的。

Answer 2

使用For i = lngCount To 1 Step -1（通过宏向后循环）

声明你的变量

Dim objAttachments As Outlook.Attachments
Dim i As Long
Dim lngCount As Long

现在运行循环以保存对象项

If Item.Attachments.Count > 0 Then
    For i = lngCount To 1 Step -1
        If objAttachments.Item(i).Size > 6000 Then
           objAttachments.Item(i).SaveAsFile FileName
        End If
    Next i
End If

将附件导出到文件夹时排除签名图像

2 个答案: