发送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

为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

谢谢！有效 –

发送Excel VBA电子邮件

相关推荐