根据outlook中的某些条件粘贴值

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了根据outlook中的某些条件粘贴值相关的知识,希望对你有一定的参考价值。

根据标准,“复制过滤范围”应粘贴到电子邮件中,文本以“strText”表示为html。如果标准未满足,则仅使用“strText2”中所述的文本并将其粘贴到电子邮件中。

问题是只有“strText”中的文本被复制到没有复制范围的电子邮件中。其次,在“Else”行中,代码“.HTMLBody = strText2”不会直接进入工作表。

(“功能GetBoiler ...”由于简单而被排除在外)

Sub Mail_Klicken()

Dim olApp As Object

Dim datDatum As Date
Dim StrBody As String
Dim intZeile As Integer
Dim rng As Range

Dim strMailverteilerTo As String
Dim strMailverteilerCC As String
Dim strText As String
Dim strFilename As String
Dim loLetzte As Long

strMailverteilerTo = "dfgdfg@gmx.de


   strText = "<span style='font-size:10.0pt;font-family:""Arial"",""sans-serif"";color:black'>Hello,<br><br> xxxx:<br><br>"

  strText2 = "<span style='font-size:10.0pt;font-family:""Arial"",""sans-serif"";color:black'>hello,<br><br>this is the second text.<br><br>"

 Application.DisplayAlerts = True

 Set olApp = CreateObject("Outlook.Application")

 With olApp.CreateItem(0)

    .to = strMailverteilerTo
    .Subject = "asdf checked"

    strFilename = "Standard"
    If Application.UserName = "wert" Then strFilename = "Signatur allg.1"

    strText = strText & "" & GetBoiler(Environ("appdata")       & "MicrosoftSignatures" & strFilename & ".htm")


 With Worksheets("Auswertung")
   loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
   .Range("$A$7:$D$" & loLetzte).AutoFilter Field:=4, Criteria1:=">0"
If .AutoFilter.Range.SpecialCells(xlCellTypeVisible).Rows.Count > 1 Then
      .AutoFilter.Range.Offset(1).Resize(.AutoFilter.Range.Rows.Count - 1). _
      SpecialCells(xlCellTypeVisible).Copy
Else
    'take only the "strText2"
End If
   .AutoFilterMode = False
End With

.HTMLBody = strText
.Display

End With

Set olApp = Nothing

End Sub
答案

答案可以在这里找到:https://www.rondebruin.nl/win/s1/outlook/bmail2.htm

以上是关于根据outlook中的某些条件粘贴值的主要内容,如果未能解决你的问题,请参考以下文章

Outlook收件人根据条件键入

如何根据 typegoose 属性中的某些条件返回默认值?

React 片段中的文本

根据某些条件与另一个表连接后设置 IQueryable<T> 中的属性值

我应该如何使用 Outlook 发送代码片段?

Outlook VBA 代码仅适用于一台计算机