最美情侣中文字幕电影,在线麻豆精品传媒,在线网站高清黄,久久黄色视频

歡迎光臨散文網(wǎng) 會(huì)員登陸 & 注冊(cè)

GPT自用代碼——下載附件

2023-03-27 21:18 作者:你的布林  | 我要投稿

Sub SaveAttachmentsBySubject()

? ? Dim objItem As Object

? ? Dim objMail As Outlook.MailItem

? ? Dim objAttach As Outlook.Attachment

? ? Dim saveFolder As String

? ? Dim i As Integer

? ??

? ? ' 選擇保存附件的文件夾路徑

? ? saveFolder = "C:\"

? ??

? ? For Each objItem In ActiveExplorer.Selection

? ? ? ? If objItem.Class = olMail Then

? ? ? ? ? ? Set objMail = objItem

? ? ? ? ? ??

? ? ? ? ? ? ' 為此電子郵件創(chuàng)建文件夾并更改FolderPath以查找此文件夾。?

? ? ? ? ? ? FName = objMail.ConversationTopic

? ? ? ? ? ??

? ? ? ? ? ? ' 刪除非法字符

? ? ? ? ? ? For i = 1 To Len(FName)

? ? ? ? ? ? ? ? c = Mid(FName, i, 1)

? ? ? ??

? ? ? ? ? ? ? ? Select Case c

? ? ? ? ? ? ? ? ? ? Case Is = "/"

? ? ? ? ? ? ? ? ? ? ? ? Mid(FName, i) = "."

? ? ? ? ? ? ? ? ? ? Case Is = "\", "|", "?", "<", ">", ":", "*", """"

? ? ? ? ? ? ? ? ? ? ? ? Mid(FName, i) = ""

? ? ? ? ? ? ? ? End Select

? ? ? ? ? ? Next i

? ? ? ??

? ? ? ? ? ? If Len(Dir(saveFolder & "\" & FName, vbDirectory)) = 0 Then

? ? ? ? ? ? ? ? MkDir (saveFolder & "\" & FName)

? ? ? ? ? ? End If

? ? ? ??

? ? ? ? ? ? ' 循環(huán)遍歷所有附件

? ? ? ? ? ? For Each objAttach In objMail.Attachments

? ? ? ? ? ??

? ? ? ? ? ? ? ? ' 將附件另存為指定的文件夾下

? ? ? ? ? ? ? ? objAttach.SaveAsFile saveFolder & "\" & FName & "\" & objAttach.FileName

? ? ? ? ? ??

? ? ? ? ? ? Next objAttach

? ? ? ? Else

? ? ? ? ? ? MsgBox "請(qǐng)選擇一封電子郵件。"

? ? ? ? End If

? ? ? ??

? ? Next

End Sub


GPT自用代碼——下載附件的評(píng)論 (共 條)

分享到微博請(qǐng)遵守國(guó)家法律
镇雄县| 垣曲县| 于都县| 筠连县| 色达县| 丰县| 诸城市| 北海市| 健康| 宜兴市| 来宾市| 扎兰屯市| 开远市| 雅江县| 惠来县| 石泉县| 镇赉县| 红安县| 龙口市| 建宁县| 九江市| 肃南| 扎鲁特旗| 大英县| 交城县| 庆元县| 阜城县| 东阳市| 穆棱市| 酉阳| 绥江县| 伊金霍洛旗| 七台河市| 江源县| 穆棱市| 社旗县| 黎城县| 左云县| 杨浦区| 陇川县| 富源县|