Het ICT hoekje

[Boeijke]

Ik word er echt helemaal simpel van. Sorry.
Is er iemand die ik het WORD bestand kan mailen en het voor me wil doen?

Beetje laat, maar, nog hulp nodig?

Of anders een pakketje office 2013? Ghehe.

Zijn er al uit Yannick.
Toch bedankt

[yannickdv]

Toppie.

[mehn]

Ik heb al jaren geen VBA of Excel aangeraakt maar volgens mij zou dit m moeten zijn:

Code Selecteer Uitklappen


Sub vba52280()
   Dim preName As String, sPath As String, ThisIsNow As String, sFileName As String
   
   preName = "MCR"
   sPath = "I:\MAP1\SUBMAP1\"
   ThisIsNow = Format(Now(), "yyyymmdd")
   sFileName = preName & ThisIsNow & ".pdf"
   MsgBox sFileName ' can be omitted
   
   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
       sFileName, Quality _
       :=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
       OpenAfterPublish:=False
End Sub


Die lijkt aardig te werken. Zit ik alleen nog met het juiste pad waarin het file moet komen (sPath) in het voorbeeld.

[Marc O.]

Dit is wat wij gebruiken. Tweede deel betreft functionaliteit om de pdf automatisch te laten mailen. Hoop dat je er iets aan hebt.


Sub PublishAnalysis()


Dim filepath As String
Dim iMsg As Object
Dim iConf As Object
Dim Flds As Variant
filepath = "D:\ServerFiles\Mailings\Wekelijkse uren klant X.pdf" 'TODO:change filepath for the temp pdf file"
'Exporting range of the excel contents which need to sent out
    Range("A1:N50").Select
    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        filepath, _
        Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False

'Setting up CDOSYS configuration to send out the email
Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")
    Set Flds = iConf.Fields
        With Flds
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "server03.xxxx.local"
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
            .Update
        End With

    With iMsg
        Set .Configuration = iConf
        .From = """xxx"
        .To = "xxx"
        .Cc = "xxx"
        .Subject = "Wekelijkse urenupdate xxx"
        .HTMLBody = "Bijgaand de voorlopige (nog niet op volledigheid en juistheid gecontroleerde) uren Month-to-Date. Dit is een automatisch gegenereerd bericht, het is niet mogelijk te antwoorden op deze mail."
        .AddAttachment (filepath)
        .Send
    End With

    Set iMsg = Nothing
    Set iConf = Nothing
End Sub

[Flunk]

Blijf me verbazen hoe veel VBA nog gebruik wordt...

[FGG]

Blijf me verbazen hoe veel VBA nog gebruik wordt...

Krijg je met een systeem met een .NET-framework. C# is ook niet helemaal ongebruikelijk.

[Flunk]

Ik heb al jaren geen VBA of Excel aangeraakt maar volgens mij zou dit m moeten zijn:

Code Selecteer Uitklappen


Sub vba52280()
    Dim preName As String, sPath As String, ThisIsNow As String, sFileName As String
     
    preName = "MCR"
    sPath = "I:\MAP1\SUBMAP1\"
    ThisIsNow = Format(Now(), "yyyymmdd")
    sFileName = preName & ThisIsNow & ".pdf"
    MsgBox sFileName ' can be omitted
     
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        sFileName, Quality _
        :=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
End Sub


Die lijkt aardig te werken. Zit ik alleen nog met het juiste pad waarin het file moet komen (sPath) in het voorbeeld.

Volgens mij is dit wat je bedoelt dan. (Geen idee of t werkt want ik heb geen Excel)

Code Selecteer Uitklappen


Sub vba52280()
    Dim preName As String, sPath As String, ThisIsNow As String, sFileName As String
   
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
If .SelectedItems.Count > 0 Then
preName = "MCR"
sPath = .SelectedItems.Item(1)
    ThisIsNow = Format(Now(), "yyyymmdd")
    sFileName = preName & ThisIsNow & ".pdf"
    MsgBox sFileName ' can be omitted
     
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        sFileName, Quality _
        :=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
End If
End With
End Sub


Blijf me verbazen hoe veel VBA nog gebruik wordt...

Krijg je met een systeem met een .NET-framework. C# is ook niet helemaal ongebruikelijk.

C# is echt prachtig! En als ze nou VB.NET in Excel zouden stoppen zou t nog ergens op slaan, maar hoe ik t begrijp zijn VBA en VB.NET 2 verschillende dialecten. Over obscure dialecten van VB gesproken, probeer je Excel eens op nederlands te zetten, dan krijg je een half werkende VBA waar alles in het nederlands is vertaald...

[mehn]

Iedereen bedankt voor het meedenken het is gelukt

[Hans Duiven]

Gamers PC van zoon Bart een fresh install gegeven van Windows 7 Home Premium 64 Bit.
Wel de originele CD van Windows aanwezig. Vraag ik om de cd hoes met de productkey, is die natuurlijk
nergens te vinden.

Nieuwe licentie kopen, of maak ik morgen nog kans als ik Microsoft ga bellen?  

Meneer is wars van Windows 8.1

[maruska]

staat er op de dvd niet een key ? dus fysiek op de dvd..
de oude install is wrs al gewist ? anders kun je daar met tools de installatie code nog wel mee terugvinden

[elmarconi]

Heeft het apparaat nog een merk? OEM key kun je wel achterhalen.

[Lammert]

Voor de zekerheid (je hebt vast al gekeken), er zit niet een sticker ergens op de kast met de key?

[Hans Duiven]

Geen stickers op de kast helaas.
Morgen maar eens bellen, wellicht dat de MS people
mij geld uit de broek praten 

[Robster480]

Geen stickers op de kast helaas.
Morgen maar eens bellen, wellicht dat de MS people
mij geld uit de broek praten  

Wellicht kun je hier iets mee Hans:
http://www.howtogeek.com/206329/how-to-find-your-lost-windows-or-office-product-keys/

Of is de pc al leeggehaald?

De productcode is vaak ook in de BIOS te vinden

[elmarconi]

Geen stickers op de kast helaas.
Morgen maar eens bellen, wellicht dat de MS people
mij geld uit de broek praten 

Als de machine nog niet gewist is mbv ProduKey of Magical Jelly Bean Keyfinder. Google is your friend.