SMS aus Excel
Johann
Folgende Problem:
Ich hab mir aus dem Forum folgenden Code geholt, mit dem sich wunderbar ein SMS mit Excel über _
Outlook verschicken lässt (funktioniert super!):
Sub q()
Dim oOL As Object
Dim oOLMsg As Object
Dim oOLRecip As Object
Dim oOLBody As Object
Dim sAddress As String
Dim rng As Range
Set rng = ActiveWindow.RangeSelection
sAddress = Range("C17").Value 'Inhalt der Zelle C17: [sms:+436641234567] _
Set oOL = CreateObject("Outlook.Application")
Set oOLMsg = oOL.CreateItem(0)
With oOLMsg
Set oOLRecip = .Recipients.Add(sAddress)
.Body = Cells(7, 3)
.Send
End With
oOLRecip.Resolve
Set oOLRecip = Nothing
Set oOLMsg = Nothing
Set oOL = Nothing
End Sub
Allerdings funkts immer nur mit einem SMS. Die Empfängeradresse = Inhalt der Zelle C17 sieht so aus: [sms:+436641234567].
Für ein SMS an mehrere Empfänger, hätte ich gedacht, müsste das dann so aussehen:
[sms:+436641234567];[sms:+436641234567];[sms:+436641234567].....
Da kommt aber immer die Fehlermeldung: Outlook kennt mindestens einen Namen nicht.
Wie kann ich ein Gruppen-SMS verschicken? Bitte um Eure Hilfe.
LG Johann
Anzeige