如果是公司邮箱需要更改哪些变量

如果公司邮箱，您需要更改以下变量：

1. SmtpServer：SMTP服务器地址，例如："smtp.company.com"
2. Port：SMTP服务器端口，通常为25或465
3. From：发件人的公司邮箱地址
4. To：收件人的邮箱地址
5. Subject：邮件主题
6. Body：邮件内容

以下是修改后的代码示例：

Sub SendEmail()
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    Dim strbody As String

    '创建Outlook应用程序对象
    Set OutlookApp = CreateObject("Outlook.Application")

    '创建邮件对象
    Set OutlookMail = OutlookApp.CreateItem(0)

    '设置发送邮件的SMTP服务器地址和端口
    Dim SmtpServer As String
    Dim Port As Integer
    SmtpServer = "smtp.company.com"
    Port = 25
    OutlookMail.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SmtpServer
    OutlookMail.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = Port
    OutlookMail.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    OutlookMail.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    OutlookMail.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/accountuser") = "您的公司邮箱账户名"
    OutlookMail.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/accountpassword") = "您的公司邮箱账户密码"
    OutlookMail.Configuration.Fields.Update

    '设置发件人、收件人、主题和邮件内容
    OutlookMail.Subject = "邮件主题"
    OutlookMail.From = "您的公司邮箱地址"
    OutlookMail.To = "收件人邮箱地址"

    '邮件内容
    strbody = "邮件内容：" & vbCrLf & vbCrLf
    strbody = strbody & Range("A1").Value & vbCrLf & vbCrLf
    strbody = strbody & "Best Regards," & vbCrLf
    strbody = strbody & "您的名字"
    OutlookMail.Body = strbody

    '发送邮件
    OutlookMail.Send

    '释放对象
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
End Sub

请注意，这里使用了CDO (Collaboration Data Objects)来发送电子邮件。在运行该代码之前，请确保您的电脑已经安装了CDO，并且您已经替换了代码中的变量为您的公司邮箱信息。