Premessa, non sono assolutamente un esperto di Macro.
Avrei bisogno di una macro che allegasse dei file su Thunderbird andando a pescarli sui percorsi file situati in varie celle.
Scoppiazzando dalla rete ho trovato e provato ad addattare quanto in allegato.
La macro allega in un unico file tutti i percorsi, invece io avrei bisogno di allegare i file dei percorsi. solo dando la specifica cella ( F5) riesco ad allegare il file (in questo caso il PS231990022)
Dove sbaglio???
Qualquno mi può aiutare ??
Anticipatamente ringrazio
Codice: Seleziona tutto
Sub AllegaFileAThunderbirdDaCelle()
Dim oSheet As Object
Dim oCell As Object
Dim oFiles() As String
Dim i As Integer
Dim sFiles As string
Dim Stringa As String
Dim strTo As String
Dim strCC As String
Dim strBCC As String
Dim strSubject As String
Dim strbody As String
Dim document As object
Dim Cells As String
document = ThisComponent.CurrentController.Frame
Doc = ThisComponent
Controller = Doc.CurrentController
Sh = Controller.ActiveSheet
' Imposta il foglio di calcolo attivo
'oSheet = ThisComponent.CurrentController.ActiveSheet
strTo = Sh.getCellRangeByName("B2").String
strCC = "CC@domino.it"
strBCC = " "
strSubject = Sh.getCellRangeByName("C2").String
strbody = Sh.getCellRangeByName ("A2").String
' Numero massimo di celle contenenti i percorsi dei file
Dim maxCells As Integer
maxCells = 200 ' Modifica questo valore a seconda del numero massimo di celle contenenti i percorsi dei file
' Inizializza l'array dei file
ReDim oFiles(maxCells - 1)
' Recupera i percorsi dei file dalle celle
For i = 0 To maxCells - 1
oCell = Sh.getCellByPosition(5, i) ' Assume che i percorsi dei file siano nella colonna A
'If Not IsEmpty(oCell.String) Then
oFiles(i) = oCell.String
'End If
Next i
' Crea una stringa contenente i percorsi dei file separati
sFiles = Join(oFiles, " ")
Cells= Sh.getCellRangeByName("F5").String
Stringa = Chr(34) & "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe" & Chr(34)
Stringa = Stringa & " -compose "
Stringa = Stringa & Chr(34) & "to='" & strTo & "',"
Stringa = Stringa & "cc='" & strCC & "',"
Stringa = Stringa & "bbc='" & strBCC & "',"
Stringa = Stringa & "subject='" & strSubject & "',"
Stringa = Stringa & "body='" & strbody & "',"
Stringa = Stringa & "attachment=' " & sFiles &"," & Cells & "'" & Chr(34)
Shell Stringa, vbNormalFocus
Set s = Nothing
End Sub
