Excel outlook电子邮件的哪种vba代码可供选择。发送还是。参照单元格显示

我想使用vba发送outlook电子邮件，允许用户选择 .发送或 .展示 关于一个单元格

---

无论如何都要这样做？

如何实现这一点的示例如下，假设A列包含电子邮件地址，B列包含“显示”或“发送”：

当然-如果单元格值为“发送”，则

.Send

。或者，如果单元格值为“Display”，则

.Display

。使用

If

或

Select Case

可以很容易地翻译。

Sub LoopThroughRows_SendEmail()
Dim OutApp As Object: Set OutApp = CreateObject("Outlook.Application")
Dim OutMail As Object: Set OutMail = OutApp.CreateItem(0)
Dim i As Long
Dim ws As Worksheet: Set ws = ThisWorkbook.Worksheets("Sheet1")
'declare and set the worksheet you are working with

For i = 2 To ws.UsedRange.Rows.Count
'loop from Row 2 To Last Row in UsedRange
    With OutMail
        .To = ws.Cells(i, "A").Value 'get email address from Column A
        .CC = ""
        .BCC = ""
        .Subject = "Subject"
        .Body = "Please contact us to discuss blah blah blah......"

        If ws.Cells(i, "B").Value = "Display" Then
        'if column B contains "Display" then .Display, else .Send
          .Display
        ElseIf ws.Cells(i, "B").Value = "Send" Then
          .Send
        End If
    End With
Next i
End Sub