Office: Laufzeitfehler 2147467259 bei Makro-Ausführung

Hallo!

Ich verwende folgendes Makro, welches im Prinzip tip-top funktioniert:


Private Sub CommandButton2_Click()

Dim MyOutApp As Object, MyMessage As Object
Dim i As Long
'Start der Sendeschleife an 20 Empfänger
For i = 1 To 20
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
'Die Empfänger stehen in Spalte A ab Zeile 1
.To = Cells(i, 1) 'E-Mail Adresse
'Der Betreff in Spalte B
.Subject = "Alles Gute zum Geburtstag!" '"Betreffzeile"
'Der zu sendende Text in Spalte C
'Maximal 1024 Zeichen
'Der Text wird ohne Formatierung übernommen
.Body = "*Happy Birthday*" & vbCrLf & _
"" & vbCrLf & _
"Leben. Lieben. Lachen." & vbCrLf & _
"So werde das neue Jahr zu einem Fest, welches Ihr Leben feiern lässt!" & vbCrLf & _
"" & vbCrLf & _
"In diesem Sinne wünschen wir Ihnen von ganzem Herzen alles, alles Gute zu Ihrem heutigen Geburtstag!" & vbCrLf & _
"" & vbCrLf & _
"Ihr Antiperspirant-Team" & vbCrLf & _
"Matthias Kunz, Geschäftsführer" & vbCrLf & _
"" & vbCrLf & _
"www.antiperspirant.ch" & vbCrLf & _
"info@antiperspirant.ch" & vbCrLf & _
"" & vbCrLf & _
">>> Nie mehr übermässig schwitzen, dank a-per

:)

 

Hallo,

ist sichergestellt, dass alle Zellen, die eine Emailadresse enthalten sollen auch eine gültige oder überhaupt eine Emailadresse stehen hat.
Ich vermute, dass mindestens einer der Zellen von A1 bis A20 leer ist.

 

Hi!

Stimmt, wenn ich den Code auf die Anzahl der E-Mail-Adressen in Spalte A anpasse, funktioniert das Makro ohne Laufzeitfehler.

Frage; wie muss ich den Code aber ändern, wenn immer eine unterschiedliche Anzahl A-Mail-Adressen in der Spalte stehen wird?

Vielen, vielen Dank für eure Hilfe! ;-)


Gruss, Mat

 

Hallo MAt

Wenn du es richtig "exclusiv" machen willst, bau doch eine Überprüfung auf eine gültige E-Mailadresse ein.

PHP:

         for i=1 to 20
if cells(i,1) =gültige Adresse  dann
Code
end if
next


 

Hi,

Code:

 

Morgen Jürgen,

im Zeitalter von .Info Domains z.B.: "www.wien.info" solltest Du mal Dein Muster anpassen.

cu, Bernd

 

Hi,

mea culpa, ich werde das Pattern anpassen. Danke!

 

Hallo,

Wie müsste ich die Funktion zur Überprüfung einer gültigen Mailadresse anpassen, um 'lediglich' einen Namen innerhalb eines Exchange Servers zu checken?
Mein Ziel wäre es, wenn die Gültigkeitsprüfung für einen oder mehrere Namen fehlschlägt, das Mail dennoch an die anderen Rezipienten rausgehen zu lassen (und gleichzeitig mir als Admin ein Mail zukommen zu lassen, dass einige Empfänger offensichtlich gelöscht wurden).

Ist so etwas machbar?