Hola ojala q alguien me pueda ayudar, necesito una macro que me guarde un archivo adjunto de Outlook,
pero que sea de un dominio especifico ej. @ssss.com y que sea guarde cuando reciba el mail, osea que no lo tenga q ejecutar yo q se ejecute automaticamente cuando me llegue dicho mail de dicho dominio,
ya tengo un Scrip
Este es mi codigo, y la verdad es que lo encontre, ya qu no se programas , espero q puedan ayudarme....
Sub GetAttachments()
Dim ns As NameSpace
Dim Inbox As MAPIFolder
Dim Item As Object
Dim Atmt As Attachment
Dim FileName As String
Dim i As Integer
Dim SubFolder As MAPIFolder
Dim strInter As String
'Abajo pongo el nombre o parte del nombre que necesito
strInter = "fte_registro"
GetAttachments_exit:
Set Atmt = Nothing
Set Item = Nothing
Set ns = Nothing
Set ns = GetNamespace("MAPI")
Set Inbox = ns.GetDefaultFolder(olFolderInbox)
i = 0
For Each Item In Inbox.Items
For Each Atmt In Item.Attachments
'Esta linea comprueba si el archivo adjunto (Atmt), contiene el nombre o parte del nombre definido arriba (strInter),
Hola ojala q alguien me pueda ayudar, necesito una macro que me guarde un archivo adjunto de Outlook,
pero que sea de un dominio especifico ej. @ssss.com y que sea guarde cuando reciba el mail, osea que no lo tenga q ejecutar yo q se ejecute automaticamente cuando me llegue dicho mail de dicho dominio,
ya tengo un Scrip
Este es mi codigo, y la verdad es que lo encontre, ya qu no se programas
, espero q puedan ayudarme....
Sub GetAttachments()
Dim ns As NameSpace
Dim Inbox As MAPIFolder
Dim Item As Object
Dim Atmt As Attachment
Dim FileName As String
Dim i As Integer
Dim SubFolder As MAPIFolder
Dim strInter As String
'Abajo pongo el nombre o parte del nombre que necesito
strInter = "fte_registro"
GetAttachments_exit:
Set Atmt = Nothing
Set Item = Nothing
Set ns = Nothing
Set ns = GetNamespace("MAPI")
Set Inbox = ns.GetDefaultFolder(olFolderInbox)
i = 0
For Each Item In Inbox.Items
For Each Atmt In Item.Attachments
'Esta linea comprueba si el archivo adjunto (Atmt), contiene el nombre o parte del nombre definido arriba (strInter),
'si lo contiene lo guarda.
If InStr(1, Atmt, strInter) Then
FileName = "C:\adjuntos\" & _
Format(Item.CreationTime, "dd-mm-yyyy-hh_nn_ss_") & Atmt.FileName
Atmt.SaveAsFile FileName
i = i + 1
End If
Next Atmt
Next Item
If i > 0 Then
MsgBox "Se han guardado " & i & " archivos adjuntos." _
& vbCrLf & "se encuentran en la sig ruta: C:\adjuntos" _
& vbCrLf & vbCrLf & "Ten un buen dia.", vbInformation, "Finished!"
Else
MsgBox "No se ha guardado ningun archivo adjunto.", vbInformation, _
"Finished!"
End If
End Sub
Saludos!!