Thunderbird mailen vanuit Ms-Access

[BartSr]

Ooit schreef ik in Ms-Access met VBA een financiële administratie met de naam Boeket.
( Je kunt 'm hier downloaden: https://app.box.com/s/2ygfi8xwb71fmtmxebkc )
Nu zoek ik naar een mogelijkheid om aan dit pakket een functie toe te voegen die ( dus vanuit MS-Access in VBA ) automatisch aan klanten via Thunderbird een rapport mailt. Dit echter zonder dat Outlook is geïnstalleerd.
Wie weet meer?

Bart

 

[edmoor]

Daarover is best e.e.a. te vinden op Access fora. Dit bijvoorbeeld:
http://www.access-programmers.co.uk/forums/showthread.php?t=224980

 

[BartSr]

Dank je wel voor je snelle reactie.
Als ik echter de code uit die verwijzing aan een form hang en uitvoer dan krijg ik de foutmelding: "De transportfunctie kan geen verbinding maken met de server" En in Thunderbird zie ik niets; geen concepten, geen verzonden mails. Dus moet ik maar eens verder spitten

 

[edmoor]

Thunderbird heeft ook geen automatiserings object dus dat gaat niet. Wat er wordt gebruikt is CDO. Daarmee kan je mailen zonder Outlook. De foutmelding zegt dat je gegevens niet in overeenstemming zijn met de vereisten van de gebruikte SMTP server.

 

[BartSr]

Inmiddels vond ik een andere procedure die het met een kleine aanpassing - Program Files moet worden Program Files (x86) - zonder meer doet ( zie http://forums.mozillazine.org/viewtopic.php?t=399230& ) dus is mijn vraag opgelost.

Bart

 

[edmoor]

Via de Thunderbird commandline dus. Ok dan

 

[BartSr]

Via de Thunderbird commandline dus. Ok dan

Zou je me ook kunnen vertellen wat de precieze syntax is van die commandline? Want wat ik mis is: hoe stuur ik een bijlage mee?

Bart

 

[edmoor]

Hier zijn ze allemaal. Kijk bij attachment:
http://kb.mozillazine.org/Command_line_arguments_(Thunderbird)

 

[BartSr]

Super! Bedankt.

Bart

 

[BartSr]

Uiteindelijk heb ik -gebruik makend van de door edmoor aangereikte info - deze Ms-Access/VBA-functie geschreven.
Met deze functie kan zowel een gewone mail als een mail met bijlage worden verstuurd:

Public Function fSendThunderbird(strAan As String, strOnderwerp As String, strTekst As String, Optional strBijlage As String)

Dim strCommand As String

strCommand = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird" & " -compose "

strCommand = strCommand & Chr$(34) & "to=" & Chr$(39) & strAan & Chr$(39)
strCommand = strCommand & ",subject=" & Chr$(39) & strOnderwerp & Chr$(39)
strCommand = strCommand & ",body=" & Chr$(39) & strTekst & Chr$(39)
If Not IsNull(strBijlage) Then
    strCommand = strCommand & ",attachment=" & Chr$(39) & strBijlage & Chr$(39)
End If
strCommand = strCommand & Chr$(34)

Call Shell(strCommand, vbNormalFocus)

De mail wordt niet automatisch verstuurd; dat moet je zelf doen. Thunderbird zegt daar zelf over:

You can use -compose message_options to have it bring up the compose message window and fill in everything for you, but you still need to press the Send button to actually send the message.

Bedankt edmoor!

Bart