Foutmelding in VBA ; na van w7 > 10 en excel 7 > 10

[Excel dick]

Deze macro ( start outlook op vanuit excel) liep best goed maar na installatie van w 10 en office 10 geeft het een foutmelding op:

.To = Cells(69, 2)

Hier de volledige macro, kan iemand mij een tip geven?

Sub Excel_Mail()
Dim MyOutApp As Object, MyMessage As Object



Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
'Die Empfänger stehen in Spalte A ab Zeile 1
.To = Cells(69, 2)
'E-Mail Adresse
'Der Betreff in Spalte B
.Subject = Cells(70, 2)
'Der zu sendende Text in Spalte C
'Maximal 1024 Zeichen
'Der Text wird ohne Formatierung übernommen
.Body = ""
'"Der Text der für alle angezeigt werden soll" & vbCrLf & _"mit einer neuen Zeile"
'Hier wird die Mail angezeigt
'.Display
'Hier wird die Mail gleich in den Postausgang gelegt
.Display 'Send
End With
'Objectvariablen leeren
Set MyOutApp = Nothing 'CreateObject("Outlook.Application")
Set MyMessage = Nothing 'MyOutApp.CreateItem(0)
'Sendepause einschalten
'Outlook kann die Aufträge nicht schnell genug verarbeiten
Application.Wait (Now + TimeValue("0:00:01"))

End Sub

 

[edmoor]

Zet je code in codetags, zo is het niet te lezen. Wat bedoel je met Excel 7 en Excel 10? Excel 11 is namelijk van Office 2003. Als je zegt een foutmelding te krijgen is het wel zo handig deze erbij te vermelden.

 

[VenA]

liep best goed

Klinkt niet erg hoopvol.:d

Heb je de 32 of 64 bits versie van XL-2010 geïnstalleerd? De 64 bits zou het probleem kunnen veroorzaken (heb ik niet dus weet ik niet) Win10 heb ik ook niet maar lijkt mij niet de veroorzaker.

De hele code kan je alvast wel een beetje reduceren tot zoiets.

Sub VenA()
With CreateObject("Outlook.Application").CreateItem(0)
    .to = Cells(69, 2)
    .Subject = Cells(70, 2)
    .display
End With
End Sub

Dan kan edmore je iig uitsluitsel geven of Win10 de boosdoener kan zijn.

 

[Excel dick]

Dank voor jullie hulp! Gewoon eerst de waarde aan een variable toegekend.