Thunderbird mit VBA aus Access aufrufen [erledigt]

  • Hallo Forumsteilnehmer,


    in Access habe ich eine externe Mailverwaltung programmiert. Mit einem Add-on, das ich mir von den TB-Seiten heruntergeladen habe, ziehe ich die Dateien ins Filesystem (*.EML). EML ist in Win XP als Dateikennung mit TB verknüpft. Wenn ich auf eine EML-Datei doppelklicke, geht sie im TB-Viewer auf. Wenn ich sie hingegen mit "FollowHyperlink (Datei.eml)" aus VBA anspreche, kriege ich den Fehler "Die angegebene Datei konnte nicht geöffnet werden". Egal welcher Mime-Typ, die verknüpften Anwendungen aller lassen sich mit VBA ansprechen, nur eben EML/Thunderbird nicht.


    Hat jemand Ahnung, woran das liegen könnte?
    Im Voraus Danke für eure nützlichen Hinweise.


    mattfi

  • Gilt zwar schon als erledigt, aber ich habe selbst lange nach einer Lösung gesucht und viel probiert.
    Hier eine m.E, gute Möglichkeit (winXP, Access97, Thunderbird 3.1)


    Function ThunderbirdMail(strAn As String, strCC As String, strBCC As String, strBetr As String, strBody As String, strAttPfad As String)


    Dim strThunderPfad As String
    Dim strShell As String
    Dim strEmailpth as String


    'compose-parameters: "to='john@example.com,kathy@example.com',cc='britney@example.com',subject='dinner',body='How about dinner tonight?',attachment='C:\temp\info.doc,C:\temp\food.doc'"
    ' check your correct apllication-path here:
    stremailpth= "C:\programme\thunderbird"
    strThunderPfad = """" & stremailpth & "Thunderbird.exe " & """"


    'strAn = "my email adress," 'seperate multiple receivers with ","
    'strBetr = "my regard"
    'strBody = "my message"
    'for ecel users, if certain range of cells shall be inserted in the message:
    'strBody = Range("A1").Value & " " & Range("C4711").Value & " " & Range("X007").Value


    strShell = strThunderPfad & _
    " -compose """ & _
    "to='" & strAn & "'," & _
    "cc='" & strCC & "'," & _
    "bcc='" & strBCC & "'," & _
    "subject='" & strBetr & "'," & _
    "body='" & strBody & "'," & _
    "attachment='" & strAttPfad & "'" & _
    """"
    'MsgBox strShell 'just to check wether all this looks correct
    Call Shell(strShell, vbNormalFocus)
    End Function