發送Excel VBA電子郵件

我在Excel VBA中有一些代碼。我需要通過電子郵件發送。它看起來很好，但沒有收到電子郵件。有人能幫我嗎？發送Excel VBA電子郵件

i = 4 
Do While Sheets("Data").Cells(i, 1).Value <> "" 
    If Sheets("Data").Cells(i, 11).Value = "Pabaigtas" And Sheets("Data").Cells(i, 12).Value = "NE" And Sheets("Data").Cells(i, 10).Value <> "DONE" Then 
     Sheets("Email").Range("A2:P2").ClearContents 
     Sheets("Data").Range(Cells(i, 1), Cells(i, 16)).Copy 
     Sheets("Email").Range("A2:P2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 
     Sheets("Data").Cells(i, 10).Value = "DONE" 
     Sheets("Email").Activate 
     ActiveSheet.Range("A1:P2").Select 
     ActiveWorkbook.EnvelopeVisible = True 
     With ActiveSheet.MailEnvelope 
      .Introduction = "NEATITIKIMU REGISTRAS" 
      .Item.To = "[email protected]" & ";" & "[email protected]" & ";" & "[email protected]" & ";" & "[email protected]" & ";" & "[email protected]" & ";" & "[email protected]" & ";" & "[email protected]" & ";" & "[email protected]" & ";" & "[email protected]" & ";" & "[email protected]" 
      .Item.Subject = "PABAIGTA UZDUOTIS NEATITIKIMU REGISTRE" 
      .Item.Send 
     End With 
     ActiveWorkbook.EnvelopeVisible = False 
    End If 
    i = i + 1 
Loop

來源

2017-03-09 Linas Dulkė

爲MS Outlook的標準電子郵件客戶端？你的Excel和Outlook的版本是什麼？ – Luuklag

我也有這個問題，我用下面這段代碼使用Outlook發送：

Public Sub testOutlook() 
    Dim OutApp As Object: Set OutApp = CreateObject("Outlook.Application") 
    Dim OutMail As Object: Set OutMail = OutApp.CreateItem(0) 

    OutMail.Display 
    Signature = OutMail.HTMLBody 
    strbody = "Some text here" 

    With OutMail 
     .SentOnBehalfOfName = "" 
     .To = "" 
     .CC = "" 
     .BCC = "" 
     .Subject = "TEST" 
     .HTMLBody = strbody & Signature 
     .Display 
    End With 
End Sub

來源

2017-03-09 15:07:51

謝謝！有效 –

發送Excel VBA電子郵件

回答

相關問題