Html 来自我的电子邮件的程序编码需要更改其位置'；它来自服务器电子邮件…如何？

所以问题是，在测试阶段，我的公司希望它来自我的电子邮件，而不是随机电子邮件。现在我们希望电子邮件从donotreply@company.com与另一封电子邮件发送的信息相同。这封新邮件不会是真的（像我的一样）

Public子GetDates（）
作为整数的Dim rw
将sub设置为字符串
rw=2
使用ActiveSheet
直到.Range（“A”和rw）=
如果.Range（“M”和rw）=“那么
如果DateAdd（“D”，30，Date）=.范围（“G”和rw），则
呼叫SendEmail（.Range（“A”和rw）、.Range（“B”和rw）、30、.Range（“L”和rw）、False）
ElseIf DateAdd（“D”，15，Date）=.范围（“G”和rw）然后
呼叫SendEmail（.Range（“A”和rw）、.Range（“B”和rw）、15、.Range（“L”和rw）、False）
ElseIf DateAdd（“D”，7，Date）=.范围（“G”和rw）然后
呼叫SendEmail（.Range（“A”和rw）、.Range（“B”和rw）、7、.Range（“L”和rw）、False）
如果结束
如果结束
如果日（日期）=1且.Range（“G”和rw）<日期和.Range（“M”和rw）=“”，则
主题=主题和范围（“A”和rw）和“，”和范围（“B”和rw）和“-”和范围（“C”和rw）和“过期报告”和vbCrLf
如果结束
rw=rw+1
环
如果是“subject”，那么
致电SendEmail（sub，“，0，”supervisor@company.com“，对）
致电SendEmail（sub，“，0，”Secondsupervisor@company.com“，对）
如果结束
以
端接头
公共子演示电子邮件（lName为字符串、fName为字符串、nDays为整数、sTo为字符串）
作为对象的Dim iMsg
作为对象的Dim-iConf
像弦一样暗的链子
设置iMsg=CreateObject（“CDO.Message”）
设置iConf=CreateObject（“CDO.Configuration”）
加载-1'CDO源默认值
设置Flds=iConf.Fields
使用FLD
.项目（”http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.项目（”http://schemas.microsoft.com/cdo/configuration/smtpserver") _
=我们的服务器在此“
.项目（”http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.更新
以
strBody=“Hi the testing from CDO”&vbNewLine&vbNewLine&_
“这是第1行”&vbNewLine&_
“这是第2行”&vbNewLine&_
“这是第3行”&vbNewLine&_
“这是第四行”
与iMsg
Set.Configuration=iConf
.to=StrTo
.CC=“”
.BCC=“”
.From=“”报告提醒“”
.Subject=“缓刑报告/IDP报告到期”
.HTMLBody=strBody
.发送
以
端接头
公用子SendEmail（lName为字符串，fName为字符串，nDays为整数，sTo为字符串，lastEmail为布尔值）
Dim OutApp作为对象
将邮件变暗为对象
Set-OutApp=CreateObject（“Outlook.Application”）
Set-OutMail=OutApp.CreateItem（0）
出错时继续下一步
发邮件
.to=sTo
如果是最后一封电子邮件的话
.Subject=“缓刑报告/IDP报告到期”
.body=lName
其他的
.Subject=“试用报告/IDP报告到期”在此处输入主题行
.HTMLBody=lName&“，”&fName&“/Due in”&nDays&“days”在此处输入body
如果结束
.发送
以
错误转到0
发送邮件=无
设置应用程序=无
端接头

在“发送邮件”中添加：

Public Sub GetDates()
    Dim rw As Integer
    Dim subj As String
    rw = 2

    With ActiveSheet

        Do Until .Range("A" & rw) = ""
            If .Range("M" & rw) = "" Then
                If DateAdd("D", 30, Date) = .Range("G" & rw) Then
                    Call SendEmail(.Range("A" & rw), .Range("B" & rw), 30, .Range("L" & rw), False)
                ElseIf DateAdd("D", 15, Date) = .Range("G" & rw) Then
                    Call SendEmail(.Range("A" & rw), .Range("B" & rw), 15, .Range("L" & rw), False)
                ElseIf DateAdd("D", 7, Date) = .Range("G" & rw) Then
                    Call SendEmail(.Range("A" & rw), .Range("B" & rw), 7, .Range("L" & rw), False)
                End If
            End If

            If Day(Date) = 1 And .Range("G" & rw) < Date And .Range("M" & rw) = "" Then
                subj = subj & .Range("A" & rw) & ", " & .Range("B" & rw) & "--" & .Range("C" & rw) & " Report Past Due" & vbCrLf
            End If
            rw = rw + 1

        Loop

        If subj <> "" Then
            Call SendEmail(subj, "", 0, "supervisor@company.com", True)
            Call SendEmail(subj, "", 0, "Secondsupervisor@company.com", True)
        End If
    End With

End Sub
Public Sub demo_email(lName As String, fName As String, nDays As Integer, sTo As String)
    Dim iMsg As Object
    Dim iConf As Object
    Dim strBody As String

    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")

     iConf.Load -1    ' CDO Source Defaults
        Set Flds = iConf.Fields
        With Flds
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
                           = ourserverhere"
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
            .Update
        End With

    strBody = "Hi the testing from CDO" & vbNewLine & vbNewLine & _
        "This is line 1" & vbNewLine & _
        "This is line 2" & vbNewLine & _
        "This is line 3" & vbNewLine & _
        "This is line 4"


    With iMsg
        Set .Configuration = iConf
        .to = StrTo
        .CC = ""
        .BCC = ""
        .From = """ReportdueReminder"" <donotreply@company.com>"
        .Subject = "Probation Report/IDP Report Due"
        .HTMLBody = strBody
        .Send
    End With


End Sub


Public Sub SendEmail(lName As String, fName As String, nDays As Integer, sTo As String, lastEmail As Boolean)

    Dim OutApp As Object
    Dim OutMail As Object

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    On Error Resume Next
    With OutMail
        .to = sTo
        If lastEmail Then
            .Subject = "Probation Report/IDP Report Due"
            .body = lName
        Else
            .Subject = "Probation Report/IDP Report Due" 'Enter subject line here
            .HTMLBody = lName & ", " & fName & "  <a href='http://www.websitehere.com'>Report 1</a> / <a href='http://www.otherwebsitehere.com'> Report 2</a> Due in " & nDays & " days" 'Enter body here
        End If
        .Send
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

.SentOnBehalfOfName = "donotreply@company.com"