Outlook 2010を使用して、Excelの添付ファイル付きの電子メールを受信します。添付ファイルは、ネットワークドライブ上の分割フォルダ内に作成されたサブフォルダに手動で保存されます。それはそれは.XLSXだかどうかを確認するために、添付ファイルをチェックし Outlook 2010の.XLSX添付ファイル(VBA付)
- 利用コードすることができます場合、私は好奇心だ何
は、あります
- もしそうなら、アプリでサブフォルダを作成するために、これらを使用し、その後
- その後、文字列としてアカウント名と口座番号を保存
- 、特定のセルの値をチェックし、添付ファイルを開くと、変数 ropriate Windowsディレクトリ。
**これまで行ってきたことを投稿するのを忘れました。私はブレットが私の答えたと思う??、しかし、他の誰かがそれのスニペットを使用することができるでしょう。
Private Sub cmdConnectToOutlook_Click()
Dim appOutlook As Outlook.Application
Dim ns As Outlook.Namespace
Dim inbox As Outlook.MAPIFolder
Dim item As Object
Dim atmt As Outlook.Attachment
Dim filename As String
Dim i As Integer
Set appOutlook = GetObject(, "Outlook.Application")
Set ns = appOutlook.GetNamespace("MAPI")
Set inbox = ns.GetDefaultFolder(olFolderInbox)
i = 0
If inbox.Items.Count = 0 Then
MsgBox "There are no messages in the Inbox.", vbInformation, _
"Nothing Found"
Exit Sub
End If
For Each item In inbox.Items
For Each atmt In item.Attachments
If Right(atmt.filename, 4) = "xlsx" Then
filename = "\\temp\" & atmt.filename
atmt.SaveAsFile filename
i = i + 1
End If
Next atmt
Next item
MsgBox "Attachments have been saved.", vbInformation, "Finished"
Set atmt = Nothing
Set item = Nothing
Set ns = Nothing
End Subの
を保存したファイルを殺しましたすべてのことができる.....ただむしろl私たちが最初からコード化するためのエンジニアリング。はい、Outlookのイベントを実行して、新しいメールをチェックしたり、添付ファイル数> 0を検索したり、Excelファイルなどのオープンを自動化したり、ディレクトリを作成したり操作したりすることができます。これらの行に沿って既存のコードをお持ちですか? – brettdj