Question

我用vba编写了一个代码。重新启动计算机后，它会第一次创建许多电子邮件，并且收到运行时错误。它们全都在后台。如果单击调试，它将带我到.Display。当我第二次执行代码时，它可以正常工作，并且电子邮件会弹出并用文本填充。

Sub
Dim olApp As Object, objMail As Object
Dim Text As String
Dim TempReceiver As Variant
Dim TempNames As Variant
Dim FinalSalutation As String

TempReceiver = Split(Receiver, "@")
TempNames = Split(TempReceiver(0), ".")
FinalSalutation = StrConv(TempNames(0), vbProperCase) & " " & StrConv(TempNames(1), vbProperCase)

Set olApp = CreateObject("Outlook.Application")
Set objMail = olApp.CreateItem(0)
Text = "Dear " & FinalSalutation & "," & "{ENTER}" & "{ENTER}" & "I would like to request for our new employee " & Employee & " that he will receive own Business Cards." _
        & "{ENTER}" & "{ENTER}" & "Job Title " & "{TAB}" & "{TAB}" & "{TAB}" & JobTitle & "{ENTER}" & "Global Function " & "{TAB}" & "{TAB}" & GFunction & "{ENTER}" _
        & "Global Sub-Function " & "{TAB}" & "{TAB}" & GSubFunction & "{ENTER}" & "Line Manager " & "{TAB}" & "{TAB}" & "{TAB}" & LineManager & "{ENTER}" & "{ENTER}" _
        & "Thank you in advance." & "{ENTER}" & "{ENTER}" & "Kind Regards"
With objMail
    .To = Receiver
    .Subject = Topic
    .Display
End With

SendKeys Text

Set objMail = Nothing
Set olApp = Nothing

有人可以帮我解决这个问题吗？

非常感谢

首次发送VBA Word电子邮件时，将执行未知数量的电子邮件打开

0 个答案: