bestandsnaam met een volgnummer

[Wilcoh]

Haya,

Ik wil graag een word bestand automatisch laten mailen, dit is mijn gelukt en hij slaat het bestand op in een bepaalde map. Aan de bestandsnaam heb ik al de huidige datum/tijd toegevoegd, maar ik wil er eigenlijk ook een volgnummer aan plakken die dus steeds 1 hoger is dan de vorige! Wie kan mij helpen?

Ik heb deze gemaakt :

Private Sub CommandButton4_Click()

Dim OL              As Object
    Dim EmailItem       As Object
    Dim doc             As Document
    Dim olMailItem      As Variant
    Application.ScreenUpdating = False
    Application.DisplayAlerts = wdAlertsNone
    Set OL = CreateObject("Outlook.Application")
    Set EmailItem = OL.CreateItem(olMailItem)
    Set doc = ActiveDocument

    doc.SaveAs FileName:="G:\Algemeen\Beheer\Opdrachten\" & HTMLText1.Value & " " & Format(Now, "dd-mmm-yyyy ") & Format(Now, "hh") & "." & Format(Now, "mm") & ".doc"
    With EmailItem
        .Subject = "Opdracht Beheer"
        .Body = "Graag opdracht verwerken" '& vbCrLf & _
        .To = "xxxxxx@xxx.nl"
         .Attachments.Add doc.FullName
         .send
        .Display
    End With
     
    Application.ScreenUpdating = True
    Application.DisplayAlerts = wdAlertsAll
     
    Set doc = Nothing
    Set OL = Nothing
    Set EmailItem = Nothing

Ook zou ik de bestandsnaam in een excel sheet willen zetten zodat ik wat makkelijker kan zoeken naar de bestanden.

Greetz Wilco

 

[steckelfisch]

wil ik ook

hoi,

ik wil dit ook, en heb dat ook voor een gdeelte voor elkaar.

Waar ik mee zit is het volgende: ik heb een 'nummer' diens draaien alhier:
http://www.steckelfisch.nl/dngWA/DngServlet?numberName=testnummer1

het getal dat daaruit komt wil ik verwerken in een bestandsnaam, maar ik kan niet vinden
hoe ik een http request kan uitvoeren mbv MS macro's. Heeft U een idee?

Als U nog nit uit bovenstaand probleem bent heb ik nog wel ergens de code liggen die
een nummer opslaat op een filesysteem.

Groet,
Gert-Jan Braas