Hi All,

We have been using Lotus Notes to send email from Excel but now we have change our email software to thunderbird, any advise on how can I convert from the current VBA script from Lotus to Thunderbird without using CDO?
As am still using Excel 2003. Any reply is really appreciated. Thank you.

Here's my programming

Private Sub Bib5_Click()

Dim S As Object ' lotus.NOTESSESSION
Dim DB As Object ' lotus.NOTESDATABASE
Dim Doc As Object ' lotus.NOTESDOCUMENT
Dim body As Object ' lotus.MIMEEntity
Dim header As Object
Dim stream As Object

'Set S = CreateObject("Notes.NotesSession")
'Set DB = S.GetDatabase("", "")
'DB.OpenMail
'Set Doc = DB.CreateDocument()
'Set body = Doc.CreateMIMEEntity()
Set header = body.CreateHeader("Subject")
Call header.SetHeaderVal("Fifth Bidder for Auction 6")


Dim Adress As Variant
Dim Title As String
Dim Detail As String
Dim Bidder As String
Dim Amount As String
Dim iCounter As Integer

Set stream = S.CreateStream
S.ConvertMime = False ' Do not convert MIME to rich text
' Set Doc = DB.CreateDocument()
' Doc.ReplaceItemValue "Form", "Memo"
' Set body = Doc.CreateMIMEEntity
' Set header = body.CreateHeader("Subject")
'Call header.SetHeaderVal("HTML message")

Sheets("Auction").Select
Cells(3, 2).Select
Title = ActiveCell.Value
Cells(7, 2).Select
Detail = ActiveCell.Value
Cells(26, 2).Select
Bidder = ActiveCell.Value
Cells(26, 5).Select
Amount = ActiveCell.Value


Dim Sendmail_List(250) As Variant
Dim k As Integer

'Sendmail_List = Array()

Sheets("Auction").Select
Cells(100, 1).Select
Adress = ActiveCell.Value

k = 0

Do Until Adress = ""

ActiveCell.Offset(1, 0).Activate

Adress = ActiveCell.Value

Sendmail_List(k) = ActiveCell.Value

k = k + 1

Loop

If SalesEngineer.Value = True Then

Cells(100, 9).Select
Adress = ActiveCell.Value

Do Until Adress = ""

ActiveCell.Offset(1, 0).Activate

Adress = ActiveCell.Value

Sendmail_List(k) = ActiveCell.Value

k = k + 1

Loop


End If
Doc.SendTo = Sendmail_List


Call stream.WriteText("<html>")
Call stream.WriteText("<body>")
Call stream.WriteText(Title)
Call stream.WriteText("<p></p>")
Call stream.WriteText(Detail)
Call stream.WriteText("<p>Please visit the link below if you will like to know the detail.</p>")
Call stream.WriteText("<p>Open to view : <a href='file:///X:\Common\test6.xls'>test 6</a></p>")
Call stream.WriteText(Bidder)
Call stream.WriteText("<p></p>")
Call stream.WriteText(Amount)
Call stream.WriteText("</body>")
Call stream.WriteText("</html>")


Call body.SetContentFromText(stream, "text/HTML;charset=UTF-8", ENC_IDENTITY_7BIT)
' Doc.SaveMessageOnSend = True
Call Doc.Send(False)
S.ConvertMime = True ' Restore conversion - very important

Set S = Nothing
Set DB = Nothing
Set Doc = Nothing
Set body = Nothing
Set header = Nothing
Set stream = Nothing

Range("Auction!J26") = Date
Range("A1").Select
MsgBox "Mail Sent", vbOKOnly + vbInformation
ActiveWorkbook.Close SaveChanges:=True

End Sub