Forumda Mozilla Thunderbird ile mail gönderme kodlarına rastlayamamıştım. İnternette yaptığım bir araştırmayla programın commandline kodları ile excel üzerinden thunderbird ile aynı outlookta olduğu gibi mail gönderilebildiğini öğrendim. Örnek kodlar aşağıdadır. Faydalı olması dileğiyle.
- Kod: Tümünü seç
Sub thunderbird()
Dim s
Set s = CreateObject("WScript.Shell")
ek = CreateObject("WScript.Shell").specialfolders("Desktop") & "\" & Format(Now, "dd.mm.yyyy (hh.mm)") & ".rar" ' ek dosyasının bulunduğu konum.
strCommand = "C:\Program Files\Mozilla Thunderbird\thunderbird" ' Thunderbird uygulamasının kurulu olduğu klasör.
strCommand = strCommand & " -compose to='aliciadresi@gmail.com',attachment='file:///" & Replace(ek, "\", "/") & "',subject=KONU,body=İÇERİK"
Call Shell(strCommand, vbNormalFocus)
Application.Wait Now + TimeSerial(0, 0, 2) ' ekinizin boyutuna göre bekleme süresini uzatabilirsiniz.
s.SendKeys "^{ENTER}" 'maili göndermek için. Mailin otomatik olarak gönderilmesini istemiyorsanız bu satırı kaldırınız.
End Sub
Ek bilgi için: http://kb.mozillazine.org/Command_line_arguments_%28Thunderbird%29