Error en función para enviar email
Para Dante
Buenas dante tengo el error "Variable de objeto with no establecidad" en la línea: getFrom = itm.SenderName.
Os dejo el código
Public Sub guardaAdjuntoDisco()
Dim objAtt As Outlook.Attachment
Dim itm As Outlook.MailItem
Dim saveFolder As String
Dim dateFormat
Dim getFrom
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
dateFormat = Format(Now, "dd-mm-yyyy H-mm")
getFrom = itm.SenderName
saveFolder = "C:\Users\JUANFRAN\Desktop\ADJUNTOS\" & getFrom & "\"
If Not oFSO.FolderExists(saveFolder) Then
oFSO.CreateFolder saveFolder
End If
For Each objAtt In itm.Attachments
objAtt.SaveAsFile saveFolder & "\" & dateFormat & " - " & objAtt.DisplayName
Set objAtt = Nothing
Set itm = Nothing
Next
End Sub
Respuesta de Arévalo Mireles
Espero la resolución para este problema
