Question

我正在尝试向手机发送短信，我的运营商是T-Mobile。

这是我的代码：

Private WithEvents objReminders As Outlook.Reminders
Private WithEvents Items As Outlook.Items

Private Sub Application_Startup()
    Dim olApp As Outlook.Application
    Dim objNS As Outlook.NameSpace
    Set olApp = Outlook.Application
    Set objNS = olApp.GetNamespace("MAPI")
    Set Items = objNS.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub Items_ItemAdd(ByVal item As Object)
Dim olMail As Outlook.MailItem

Set olApp = CreateObject("Outlook.Application")
Set olMail = olApp.CreateItem(olMailItem)

With olMail
    .To = "8011234567@tmomail.net"
    .Subject = "Email from " & item.SenderName
    .Send
End With

End Sub

在我发送的文件夹中，它显示已发送“电子邮件/文本”，但它从未到达我的手机。如果我打开电子邮件并回复所有发送到phone@tmomail.net，我会得到一个文本...有关VBA为什么没有实际发送文本的任何帮助？

Answer 1

您必须在国家/地区代码中附上T-mobile的电话号码。

http://www.wikihow.com/Email-to-a-Cell-Phone

在T-Mobile上我不得不放一个＆＃34; 1＆＃34;在10位数之前。

Answer 2

显然这个问题出现在t-mobile的末端。它突然开始工作，没有对代码或任何通知进行任何更改。

无法使用Outlook向T-mobile地址发送电子邮件

2 个答案: