Buongiorno,
ho una macro in VBA che mi consente di inviare una mail e di allegare determinati file.
Private Sub Comando167_Click()
Dim destinatario As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = Forms![MSC stato 2]![Sottomaschera ELENCOCOLLABORATORI].Form![Email]
'CC =
.Subject = "INVIO: CONTRATTI - DISPOSIZIONI E TEG " & Forms![MSC stato 2]![SOCIO] & ""
.Body = "Gentile," & Forms![MSC stato 2]![Sottomaschera ELENCOCOLLABORATORI].Form![NOMEPROM] & "" & vbNewLine & "Si inviano in allegato:" & vbNewLine & "1)CONTRATTI" & vbNewLine & "2)DISPOSIZIONI" & vbNewLine & "3)TEG" & vbNewLine & "del socio indicato in oggetto"
.Attachments.Add ("\\SERVERHP\Documenti\ServCredimpresa\UFFICIO FIDI\Alessandra\Disposizioni\2018\" & Forms![MSC stato 2]![SOCIO] & " " * ".pdf")
'.Send 'per inviare subito la mail
.Display 'per aprire e controllare la mail prima di inviarla manualmente
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Funziona tutto tranne un comando che non capisco come dargli.
Nel codice sopra gli sto dicendo di allegarmi un file nella cartella specifica che abbia il nome del campo [SOCIO] presente nella maschera STATO 2.
Se dovesse funzionare per soltanto un file ok ma se io volessi fare in modo che mi allegasse TUTTI I FILE CHE NEL NOME ABBIANO IL NOME SOCIO + una parte variabile.
Esempio di nome di file:
ALESSANDRO VITALE MUTUO 100000.pdf
ALESSANDRO VITALE FACOLTA DI SCOPERTO 50000.pdf
vorrei che me li allegasse entrambi.
Ho provato a mettere l'asterisco ma mi manda a quel paese.
Avete consigli?
Nella guida al VBA non ho trovato nulla (ma sicuramente non so cercare tra tutte le moltitudini di comandi.