Funkcionalnosć toś togo sedła se pśez wótwardowańske źěła wobgranicujo, kótarež maju wašo dožywjenje pólěpšyś. Jolic nastawk waš problem njerozwězujo a cośo pšašanje stajiś, wobrośćo se na našo zgromoźeństwo pomocy, kótarež na to caka, wam na @FirefoxSupport na Twitter a /r/firefox na Reddit pomagaś.

Avatar for Username

Pomoc pśepytaś

Glědajśo se wobšudy pomocy. Njenapominajomy was nigda, telefonowy numer zawołaś, SMS pósłaś abo wósobinske informacije pśeraźiś. Pšosym dajśo suspektnu aktiwitu z pomocu nastajenja „Znjewužywanje k wěsći daś“ k wěsći.

Dalšne informacije

Convert VBA on Outlook to TBird

  • Žedne wótegrona
  • 0 ma toś ten problem
Peter Matthews
Peter Matthews
more options

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

Musyśo se pla swójogo konta pśizjawiś, aby na pśinoski wótegronił. Pšosym stajśo pšašanje, jolic hyšći njamaśo wužywaŕske konto.