Baixar anexo do Outlook e Abrir no Excel
Eu estou tentando baixar e abra um anexo de planilha do Excel em um email do Outlook usando o VBA no Excel. Como posso:
Baixar o primeiro e único anexo do primeiro email (o email mais recente) na minha caixa de entrada do OutlookSalve o anexo em um arquivo com um caminho especificado (por exemplo: "C: ...")Renomeie o nome do anexo com:data atual + nome de arquivo anteriorSalve o email em uma pasta diferente com um caminho como "C: ..."Marcar o email no Outlook como "lido"Abrir o anexo excel no ExcelEu também quero ser capaz de salvar o seguinte como strings individuais atribuídos a variáveis individuais:
Endereço de email do remetenteData recebidaData enviadaSujeitoA mensagem do emailembora isso possa ser melhor fazer uma pergunta separada / procurar por mim mesmo.
O código que tenho atualmente é de outros fóruns online, e provavelmente não é muito útil. No entanto, aqui estão alguns pedaços que tenho trabalhado:
Sub SaveAttachments()
Dim olFolder As Outlook.MAPIFolder
Dim att As Outlook.Attachment
Dim strFilePath As String
Dim fsSaveFolder As String
fsSaveFolder = "C:\test\"
strFilePath = "C:\temp\"
Set olFolder = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
For Each msg In olFolder.Items
While msg.Attachments.Count > 0
bflag = False
If Right$(msg.Attachments(1).Filename, 3) = "msg" Then
bflag = True
msg.Attachments(1).SaveAsFile strFilePath & strTmpMsg
Set msg2 = Application.CreateItemFromTemplate(strFilePath & strTmpMsg)
End If
sSavePathFS = fsSaveFolder & msg2.Attachments(1).Filename
End If
End Sub