0

カレンダー イベントの連絡先グループに電子メール通知を送信しようとしています。

これを行うSend Messageには、指定した連絡先グループにメールを送信するカテゴリなどのカテゴリを使用しています。

私のVBコードは以下の通りです：

Private Sub Application_Reminder(ByVal Item As Object)
Dim objMsg As MailItem

Set objMsg = Application.CreateItem(olMailItem)

Select Case Item.Categories
 Case "Send Message"

 Set objGroup = GetObject _
("LDAP://cn=Scientists,ou=R&D,dc=NA,dc=fabrikam,dc=com")

objGroup.GetInfo

arrMemberOf = objGroup.GetEx("Test")

For Each strMember In arrMemberOf
    Set objUser = GetObject("LDAP://" & strMember)
    strEmail = Replace(objUser.mail, "@", "@internal.")
    emailList = emailList & strEmail & ";"
Next

strTo = emailList

 objMsg.To = strTo
 objMsg.Subject = "BI Test"
    objMsg.Body = "This is a test"

LDAP パラメータの設定方法がよくわかりません。これは初めてです。

前もって感謝します。

4

1 に答える 1

0

私はそれを理解しました、以下を参照してください：

Private Sub Application_Reminder(ByVal Item As Object)
Dim objMsg As MailItem
Dim Conn
Dim cmd
Dim ToStrn

Set objMsg = Application.CreateItem(olMailItem)
Set Conn = CreateObject("ADODB.Connection")
Conn.ConnectionString = "driver={SQL Server}; server=localhost;user id = sa; password=mypass; Initial Catalog=TestDatabase"
Conn.Open

Select Case Item.Categories
 Case "Send Message"

 Set Rs = CreateObject("ADODB.recordset")
 Rs.Open "Select * from Cleints where Rank = 'MNGR'", Conn
 While Not Rs.EOF
    ToStrn = ToStrn + CStr(Rs.Fields.Item("Email")) + "; "
    Rs.MoveNext
 Wend

 objMsg.To = ToStrn
 objMsg.Subject = "SQL Test"
 objMsg.Body = "This is a test message sent via a calender event."
于 2013-08-29T12:30:06.537 に答える