根据单元格中的条目从两个邮件主题中选择

Question

我需要为邮件主题做这个条件：
如果单元格 S5 中的时间 != 00:00 然后放入单元格 S5 中的文本。
否则将单元格 T5 中的文本放入。

Sub esendtable()

Dim outlook As Object
Dim newEmail As Object
Dim xInspect As Object
Dim pageEditor As Object

Set outlook = CreateObject("Outlook.Application")
Set newEmail = outlook.CreateItem(0)
Set xInspect = newEmail.GetInspector
Set pageEditor = xInspect.WordEditor

With newEmail
    .To = Sheet1.Range("S2").Text
    .CC = Sheet1.Range("S3").Text
    .BCC = ""
    .Subject = Sheet1.Range("S5").Text
    .Body = "Dear All," & vbNewLine & vbNewLine & vbTab & Sheet1.Range("S6").Text
    .Recipients.ResolveAll
    .display
        
    Sheet1.Range("B2:L12").Copy
      
    pageEditor.Application.Selection.Start = Len(.Body)
    pageEditor.Application.Selection.End = pageEditor.Application.Selection.Start
    pageEditor.Application.Selection.PasteAndFormat (wdFormatPlainText)
    .display
    
    Set pageEditor = Nothing
    Set xInspect = Nothing
End With

Set newEmail = Nothing
Set outlook = Nothing

End Sub

Answer 1

请使用if-else条件。如果 S5 = 00:00 则主题将是 T5 单元格的值，否则它将是 S5 单元格的值。

条件：

If subject = "00:00" Then

subject = Sheet1.Range("T5").Text

Else

subject = Sheet1.Range("S5").Text

End If

完整代码：

Sub esendtable()

Dim outlook As Object

Dim newEmail As Object

Dim xInspect As Object

Dim pageEditor As Object

Set outlook = CreateObject("Outlook.Application")

Set newEmail = outlook.CreateItem(0)

Set xInspect = newEmail.GetInspector

Set pageEditor = xInspect.WordEditor

Dim subject As String

subject = Sheet1.Range("S5").Value

If subject = "00:00" Then

subject = Sheet1.Range("T5").Text

Else

subject = Sheet1.Range("S5").Text

End If

With newEmail

    .To = Sheet1.Range("S2").Text
    .CC = Sheet1.Range("S3").Text
    .BCC = ""
    .subject = subject
    .Body = "Dear All," & vbNewLine & vbNewLine & vbTab & Sheet1.Range("S6").Text
    .Recipients.ResolveAll
    .display
        
    Sheet1.Range("B2:L12").Copy
      
    pageEditor.Application.Selection.Start = Len(.Body)
    pageEditor.Application.Selection.End = pageEditor.Application.Selection.Start
    pageEditor.Application.Selection.PasteAndFormat (wdFormatPlainText)
    .display
    
    Set pageEditor = Nothing
    Set xInspect = Nothing
End With

Set newEmail = Nothing

Set outlook = Nothing

End Sub

根据单元格中的条目从两个邮件主题中选择

Choose from two subjects for mail based on entry in cell

excel

outlook

vba