[Tasos]

Καλησπέρα!

Οι φάκελοι Dropbox ή Google Drive δημιουργούνται αυτόματα κατά την εγκατάσταση των αντίστοιχων προγραμμάτων στη διαδρομή %UserProfile%.

Θα χρειαστεί η συνάρτηση Environ("UserProfile") που θα μας επιστρέψει τη διαδρομή του φακέλου.

Γενικό παράδειγμα:

Option Explicit

Sub test()
    Dim AttachmentFileName As String
    
    '...Code for OL Object...
    
    AttachmentFileName = GetDocFileFromDropbox("test.doc")
    If AttachmentFileName <> vbNullString Then
     ' myEmail.Attachments.Add AttatchmentFileName
    End If
End Sub

 ' Η συνάρτηση αυτή θα επιστρέψει την διαδρομή του test.doc στον φάκελο του Dropbox.
Function GetDocFileFromDropbox(docFile As String) As String
    Dim DropBoxPath As String
    DropBoxPath = Environ("userprofile")
    If Right(DropBoxPath, 1) <> "\" Then DropBoxPath = DropBoxPath & "\"
    DropBoxPath = DropBoxPath & "Dropbox\" & docFile
    If Dir(DropBoxPath, vbDirectory) <> vbNullString Then
        GetDocFileFromDropbox = DropBoxPath
    End If
End Function

Καλή συνέχεια!

Τάσος