0

最終的にいくつかの作業コードを取得しましたが、Module2 関数が終了すると「型の不一致」エラーが発生し、その理由がわかりません。

それをステップ実行すると、module2 の「関数の終了」がステップ実行され、タイプの不一致が発生しますが、電子メールは送信されます。どんな助けでも素晴らしいでしょう

この VBA コードは 3 つの部分に分かれています。

1サブ

  Sub Workbook_open()

  Call Module1.GetData

  End Sub

2 モジュール 1

  Public EmailAddress As String
  Public CompanyNumber As String
  Public Name As String
  Public GroupComp As String

  Function GetData()

  Dim LastRow As String
  Dim rng As Range


  LastRow = Cells(Rows.Count, "K").End(xlUp).Row

  For Each rng In Range("K2:K" + LastRow)

       If Not rng.Value = vbNullString Then
           Select Case rng.Value
               Case 1
                  Case Is = "True"
                    Let EmailAddress = ActiveCell.Offset(0, -5).Value
                    Let CompanyNumber = ActiveCell.Offset(0, -9).Value
                    Let Name = ActiveCell.Offset(0, -8).Value
                    Let GroupComp = ActiveCell.Offset(0, -7).Value
                    Call Module2.Email(EmailAddress, CompanyNumber, Name, GroupsComp)
               Case 2
                  Case Is = "False"
           End Select

        End If
    Next
   End Function

3 モジュール 2

      Function Email()
     'MsgBox (EmailAddress)
     Set objMessage = CreateObject("CDO.Message")
     objMessage.Subject = "Stuffl " & (GroupComp)
     objMessage.From = "Department Name(Department@Email.com)"
     objMessage.Cc = "Department Name(Department@Email.com)"
     objMessage.To = (EmailAddress)
     MsgBox (EmailAddress)
     objMessage.TextBody = "TEST"

      objMessage.Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

      objMessage.Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "x.x.x.x"

      objMessage.Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

      objMessage.Configuration.Fields.Update

      objMessage.Send

    End Function
4

2 に答える 2

1

をに変更しFunction Email()ます

Function Email(emailaddress As String, companynumber As String, name As String, groupscomp As String)

あなたは実際にメール機能を呼び出していません。それが問題だと思います

于 2013-09-27T12:38:49.893 に答える