email versturen via VB

[TheVirus]

Hallo Gebruikers.
Ik heb een excelbestand die ik via een Virtuel Basic editor kan versturen via de email.
Maw. Mensen openen een excelbestand en in het excel bestand zit een cel waarim een soort hyperlink zit die dan het excelbestand direct meestuurd met een email. Nu doet hij het wel bij office 2003 maar niet bij office 2007.

Dit is de code:

Sub Verzenden()
'
' Verzenden Macro
' Application.DisplayAlerts = False
Dim Naam As String
If MsgBox("Wilt u dit bestand nu versturen?", vbYesNo) = vbYes Then
Naam = "EK2008" & Range("F4")
ActiveWorkbook.SendMail "thevirus@home.nl", Naam
Else: Exit Sub
End If
Application.DisplayAlerts = True
End Sub

Waar zit het probleem??

 

[Wigi]

Ron de Bruin heeft op zijn site heel wat lappen code staan om te mailen.

Bvb

http://www.rondebruin.nl/mail/folder1/mail1.htm

Hij maakt geregeld een onderscheid tussen Excel versie 12 (2007) en die ervoor, dus dat zal wel niet voor niets zijn

Wigi