通過excel在線發送電子郵件

我有兩張紙。一個包含完整的信息，另一個包含關於一名學生的某些信息，這些信息必須通過電子郵件發送。請看下面的截圖：通過excel在線發送電子郵件

The first worksheet

The second worksheet

這裏，第二個工作表有學生證現場，我希望能夠寫的行號，並填寫下面的空白用正確的信息從前面的表格自動。然後我希望能夠將該工作表作爲電子郵件發送。我只知道excel的基本知識，我在網上使用excel。有沒有什麼辦法可以在線使用Excel？我搜查了很多，但找不到任何解決方案。請幫助我。謝謝。

來源

2017-02-27 CCR

您可以使用宏發送電子郵件，然後用短鍵觸發它，手動或添加一個調用它的按鈕。要創建一個，請按Alt - F11打開編輯器。單擊插入 - >模塊，並添加以下代碼：

Sub SendEmail() 
Dim OutApp As Object 
Dim OutMail As Object 
Dim strbody As String 


Set OutApp = CreateObject("Outlook.Application") 
Set OutMail = OutApp.CreateItem(0) 

strbody = "Dear parent," & vbNewLine & vbNewLine & _ 
      "This is your child's report:" & vbNewLine 
      Cells(1, 4).Value & " :" & Cells(2, 4).Value & vbNewLine 
      Cells(1, 6).Value & " :" & Cells(2, 6).Value & vbNewLine 
      Cells(1, 7).Value & " :" & Cells(2, 7).Value & vbNewLine 
      Cells(1, 8).Value & " :" & Cells(2, 8).Value & vbNewLine 
      Cells(1, 9).Value & " :" & Cells(2, 9).Value 

On Error Resume Next 
With OutMail 
    .To = Cells(1,12).Value 
    .CC = "" 
    .BCC = "" 
    .Subject = "Student Report" 
    .Body = strbody 
    .Send 
End With 
On Error GoTo 0 

Set OutMail = Nothing 
Set OutApp = Nothing 
End Sub

不管你把strbody將是電子郵件的正文。您可以使用Cells(columnnumber, rownumber).Value函數使用單元格的值。您可以查看this support page以瞭解如何使用按鈕，或者在this page上手動或使用快捷鍵運行。通過首先發送給自己來仔細檢查，然後根據自己的口味進行編輯。

來源

2017-07-12 10:48:22 BigMistake

通過excel在線發送電子郵件

回答

相關問題