Convert VBA on Outlook to TBird
Can this be doctored to send via Thunderbird? If so pointers would be apreciated! Sub FredWeeklyReport() Dim OutApp As Object
Dim OutMail As Object
Dim MyAddress As String
Dim MyAddress2 As String
Dim Response
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
Response = MsgBox("Fred. Hide all invoices, check worksheet is up to date", vbOKCancel)
If Response = vbCancel Then GoTo ExitLable
'Worksheets("Sheet19").Visible = False
MyAddress = Sheets("Work summary").Range("Eddress1").Value
MyAddress2 = Sheets("Work summary").Range("Eddress2").Value
With OutMail
.To = MyAddress
'.CC = MyAddress2
.BCC = ""
.Subject = "Fred - PM - Weekly report"
.Body = "Attached please find my weekly report. Regards, Peter"
.Attachments.Add ActiveWorkbook.FullName
'You can add other files also like this
'.Attachments.Add ("C:\test.txt")
.Send 'or use .Display
End With
On Error GoTo 0
ExitLable:
Set OutMail = Nothing Set OutApp = Nothing
End Sub
Can this be doctored to send via Thunderbird? If so pointers would be apreciated!
Sub FredWeeklyReport()
Dim OutApp As Object
Dim OutMail As Object
Dim MyAddress As String
Dim MyAddress2 As String
Dim Response
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
Response = MsgBox("Fred. Hide all invoices, check worksheet is up to date", vbOKCancel)
If Response = vbCancel Then GoTo ExitLable
'Worksheets("Sheet19").Visible = False
MyAddress = Sheets("Work summary").Range("Eddress1").Value
MyAddress2 = Sheets("Work summary").Range("Eddress2").Value
With OutMail
.To = MyAddress
'.CC = MyAddress2
.BCC = ""
.Subject = "Fred - PM - Weekly report"
.Body = "Attached please find my weekly report. Regards, Peter"
.Attachments.Add ActiveWorkbook.FullName
'You can add other files also like this
'.Attachments.Add ("C:\test.txt")
.Send 'or use .Display
End With
On Error GoTo 0
ExitLable:
Set OutMail = Nothing
Set OutApp = Nothing
End Sub