foutmelding VBA excel 2003 FileSaveName

[fke1964]

Goedenavond allen,

Enige tijd geleden heb ik met behulp van het Forum onderstaande code in een excel sheet gemaakt. Met deze code wordt er automatisch een mail gestuurd wanneer je op een knop drukt. De code heeft altijd gewerkt in 2003 maar nu hebben wij 2010 en werkt het niet meer. De code loopt vast op filesavename en zal ongetwijfeld wel niet meer werken in 2010 of zoiets. Wie zou mij hiermee kunnen helpen?

Sub Mail_workbook_Outlook_1()
 'Retrieve file name to use for Save
  fileSaveName = Application.GetSaveAsFilename( _
        fileFilter:="Excel Files (*.xlsm), *.xlsm")

    'If user specified file name, perform Save and display msgbox
    If fileSaveName <> False Then
        ActiveWorkbook.SaveAs Filename:=fileSaveName, FileFormat:=xlNormal

        MsgBox "Save as " & fileSaveName
    End If
'Working in 2000-2007
'This example send the last saved version of the Activeworkbook
    Dim OutApp As Object
    Dim OutMail As Object
 
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)
 
    On Error Resume Next
    With OutMail
        .To = "fictief@td.com"
        .CC = ""
        .BCC = ""
        .Subject = "LRU VERWISSELING DURING STAGE 3 AANVRAAG"
        .Body = "Goedemorgen zie bijlage voor gegevens LRU verwisseling in stage 3, gaarne data verwerken in SAP"
        .Attachments.Add ActiveWorkbook.FullName
        .Send   'or use .Display
    End With
    On Error GoTo 0
 
    Set OutMail = Nothing
    Set OutApp = Nothing
    
    End Sub

gr,
Frans

 

[edmoor]

Wijzig xlNormal eens in xlOpenXMLWorkbookMacroEnabled

Tip:
Gebruik codetags als je code in een bericht plaatst.
Verwijder tevens eventuele correcte email adressen.

 

[fke1964]

Hallo Ed,

Ik heb dat geprobeerd maar hij loopt nog steeds vast op

fileSaveName

was ff zoeken maar heb de code tags gebruikt nu :thumb:

gr,
Frans

 

[edmoor]

Hij werkt hier zonder een enkel probleem.
"Hij loopt vast" is een vrij algemene term. Krijg je er ook een foutmelding bij? En op welke regel in de code gebeurt dat?

 

[fke1964]

Ed,

Ik heb even een plaatje toegevoegd dat zegt wat meer

 

[edmoor]

Laat eens een afdruk zien van je verwijzingen in VBA, zoals dit:

 

[fke1964]

komt ie

 

[edmoor]

Gebruik je in 1 van de formulieren de Calendar Control? Die is namelijk niet aanwezig en zal de fout veroorzaken als je die mailing routine vanuit dat formulier aanroept.

 

[fke1964]

Hallo Ed,

Nee de enige datum die gebruikt wordt is met de code

=NOW()

 

[edmoor]

Plaats dan je hele document eens. Opslaan als .xlsb bestand en dan hier uploaden.

 

[fke1964]

Hoi Ed heb het bestand helemaal toegevoegd. Hoop dat dit xlsb is


Bekijk bijlage LRU verwisseling Stage3.xlsb

 

[edmoor]

Dan wordt het lastig want je document werkt hier zonder enig probleem.

 

[fke1964]

Nou daar snap ik helemaal niets meer van. Het werkt hier op meedere PC's niet.
Zou het aan de versie van office kunnen liggen dan? wij hebben 2010

 

[edmoor]

Dat kan ik me niet voorstellen, al vind ik de 2010 versie wel erg buggy.
Vink in de verwijzingen toch die Calendar Control eens uit.

 

[fke1964]

Topperrrrrrrrrrr Dat was het dus. Een vinkje :thumb:

Danjewel Ed voor je snelle hulp op de zaterdag avond.

gr,
Frans

 

[edmoor]

Dus toch m'n eerste verdachte.
Graag gedaan

 

[fke1964]

kan ik het bericht nog ergens afsluiten??

 

[edmoor]

Je kan hem als "Opgelost" markeren.