aquila-67
00giovedì 22 giugno 2017 17:14
Buonasera a tutti, sto utilizzando una macro per allegare file ad una mail presa qui sul forum e va bene, ma ho problemi perchè se la utilizzo sul mio pc a cui ho impostato il percorso "tradizionale" è ok, ma siccome devo spostarmi su piu pc per non impostare sempre il percorso corrente stavo provando ad utilizzare "%userprofile%\desktop\cartella\*.*\" ma non trova il percorso. Sbaglio qualcosa o esiste un altro tipo di percorso desktop diciamo generico.
dodo47
00giovedì 22 giugno 2017 18:33
Ciao
prova:
Dim obj As Object
Dim mDesktop
Set obj = CreateObject("WScript.Shell")
mDesktop = obj.SpecialFolders("Desktop")
saluti
aquila-67
00giovedì 22 giugno 2017 19:52
come rientro provo
aquila-67
00giovedì 22 giugno 2017 20:35
Allora grazie innanzitutto per la risposta, ma il percorso non è scritto nella macro ma bensi in un foglio dove ci sono riportati li indirizzi, oggetto, testo della mail e il percorso degli allegati.
la macro che sto utilizzando l'avevo reperita qui in una discussione che non ritrovo comunque è questa:
macro
Sub Manda_mail_con_diversi_allegati()
'
'
' Manda_mail_con_diversi_allegati Macro
'
'
Dim OutApp As Object
Dim OutMail As Object
Dim EmailAddr As String
Dim Subj As String
Dim BodyText As String
Foglio12.Select
' RR contiene il nuemro di utenti cui inviare le e-mail (1 per utente)
'RR = Range("B" & Rows.Count).End(xlUp).Row
RR = 2
' I dati iniziano dalla seconda riga
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
For i = 2 To RR
With OutMail
' La colonna "A" contiene gli indirizzi e-mail dei vari destinatari
.To = Cells(i, 1)
' La colonna "B" contiene l'oggetto della e-mail
.Subject = Cells(i, 2)
' La colonna "C" contiene l testo della e-mail
.Body = Cells(i, 3)
' La colonna "D" contiene il percorso ove si trova il file da allegare
' La colonna "E" contiene il nome del file da allegare
.Attachments.Add (Cells(i, 4) & Cells(i, 5))
.Display
End With
Set OutMail = Nothing
Set OutApp = Nothing
Application.SendKeys "%a"
Next i
End Sub
l'indirizzo lo devo scrivere nelle colonne "D" ed "E" del foglio 12
rollis13
00venerdì 23 giugno 2017 00:17
In "%userprofile%\desktop\cartella\*.*\" non puoi utilizzare un percorso jolly sfruttando un "*.*".
aquila-67
00venerdì 23 giugno 2017 09:21
Buongiorno allego il foglio con il relativo codice cosi penso si capisce meglio, ho la necessità di raggiungere una cartella sul desktop dove attingere gli allegati, il percorso che è mostrato funziona, ma ogni volta lo devo cambiare ecco perchè stavo cercando di utilizzare un percorso jolly
dodo47
00venerdì 23 giugno 2017 09:22
Ciao
probabilmente ho capito male io. Credevo ti servisse individuare il percorso del desktop e poi le relative sottocartelle prenderle dal foglio.
saluti
aquila-67
00lunedì 26 giugno 2017 10:01
Non esiste proprio nessuna altra soluzione magari pure modificando la macro che ho allegato mi sarebbe di grande aiuto.