创建outlook中的会议提醒邮件，结果报错“Cannot create ActiveX component”，哭死~~

代码如下：
Private Sub SendMailPPT(ByVal str, ByVal str1)
Dim outLookApp As New Application

Dim newapp As AppointmentItem = outLookApp.CreateItem(OlItemType.olAppointmentItem)
Dim safeapp = CreateObject("Redemption.SafeAppointmentItem")

safeapp.Item = newapp
safeapp.ReminderSet = True
safeapp.ReminderMinutesBeforeStart = 60
safeapp.Start = str + " " + str1
safeapp.Duration = 60
safeapp.Body = "请注意播放ID号为" + TextBox1.Text + "的电子欢迎牌"
safeapp.Subject = "播放电子欢迎牌"
safeapp.Recipients.ResolveAll()
safeapp.Send()
End Sub

在本机运行没问题，可以生成一个提醒邮件，但放到其他机器上就不行了，提示“Cannot create ActiveX component”
有没哪位高人知道怎么解决这个问题啊？都几天了，郁闷~~