본 사이트는 여러분의 사용자 경험을 개선하기 위해 유지 보수를 진행하는 동안 기능이 제한됩니다. 도움말로 문제가 해결되지 않고 질문을 하고 싶다면 Twitter의 @FirefoxSupport 및 Reddit의 /r/firefox 채널을 활용하세요.

Avatar for Username

Mozilla 도움말 검색

고객 지원 사기를 피하세요. 저희는 여러분께 절대로 전화를 걸거나 문자를 보내거나 개인 정보를 공유하도록 요청하지 않습니다. "악용 사례 신고"옵션을 사용하여 의심스러운 활동을 신고해 주세요.

자세히 살펴보기

Convert VBA on Outlook to TBird

  • 답글 없음
  • 0 이 문제를 만남
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

글에 답글을 달기 위해서는 계정으로 로그인해야만 합니다. 계정이 아직 없다면 새로운 질문을 올려주세요.