Venoms

Hedersmedlem
  • Innehållsantal

    5 471
  • Gick med

  • Besökte senast

  • Dagar vunna

    67

5 följare

Om Venoms

  • Rank

  • Födelsedag 1960-09-08

Kontaktmetoder

  • Hemsida
    http://www.itpoolen.se
  • ICQ
    0

Ytterligare profilinformation

  • Kön
    Man
  • Från
    Huskvarna
  • Intressen
    Det mesta man blir glad av...

Senaste besökare till profilen

23 271 profilvisningar
  1. Japp, det ser rätt ut, men det som stör är att den gröna pilen pekar ner, den ska vara upp
  2. Se till att den anslutningen du väljer som 1a alternativ är överst i listan.
  3. Kort svar, ja. Enkelt i Share Point lite svårare annars. Ett alternativ som kräver lite kodning från din sida.. https://superuser.com/questions/226828/how-to-monitor-a-folder-and-trigger-a-command-line-action-when-a-file-is-created
  4. Är alla enheter med i samma arbetsgrupp?
  5. Vad bra att det löste sig enkelt.. gsb@ Den enklaste lösningen simmade förbi.. Tack för tipset
  6. Eller om du är bekväm i att skapa macron.. Kopiera och klistra in koden för att skapa ett macro som du kan skicka e-post i Excel med. Det skickar bara den aktiva arbetsboken och inte hela dokumentet. Döp modulen till SkickaEpost eller något du vet vad det är. När det är dags att skicka klickar du Alt+F8 för att köra ett makro. Då väljer du det du nyss skapat och klickar ok. Fyll i e-postadress och ämne.. klicka skicka. Sub Mail_ActiveSheet() 'For Tips see: http://www.rondebruin.nl/win/winmail/div/tips.htm 'Working in Excel 2000-2016 Dim FileExtStr As String Dim FileFormatNum As Long Dim Sourcewb As Workbook Dim Destwb As Workbook Dim TempFilePath As String Dim TempFileName As String Dim I As Long With Application .ScreenUpdating = False .EnableEvents = False End With Set Sourcewb = ActiveWorkbook 'Copy the sheet to a new workbook ActiveSheet.Copy Set Destwb = ActiveWorkbook 'Determine the Excel version and file extension/format With Destwb If Val(Application.Version) < 12 Then 'You use Excel 97-2003 FileExtStr = ".xls": FileFormatNum = -4143 Else 'You use Excel 2007-2016 Select Case Sourcewb.FileFormat Case 51: FileExtStr = ".xlsx": FileFormatNum = 51 Case 52: If .HasVBProject Then FileExtStr = ".xlsm": FileFormatNum = 52 Else FileExtStr = ".xlsx": FileFormatNum = 51 End If Case 56: FileExtStr = ".xls": FileFormatNum = 56 Case Else: FileExtStr = ".xlsb": FileFormatNum = 50 End Select End If End With ' 'Change all cells in the worksheet to values if you want ' With Destwb.Sheets(1).UsedRange ' .Cells.Copy ' .Cells.PasteSpecial xlPasteValues ' .Cells(1).Select ' End With ' Application.CutCopyMode = False 'Save the new workbook/Mail it/Delete it TempFilePath = Environ$("temp") & "\" TempFileName = "Part of " & Sourcewb.Name & " " _ & Format(Now, "dd-mmm-yy h-mm-ss") With Destwb .SaveAs TempFilePath & TempFileName & FileExtStr, _ FileFormat:=FileFormatNum On Error Resume Next For I = 1 To 3 .SendMail "", _ "This is the Subject line" If Err.Number = 0 Then Exit For Next I On Error GoTo 0 .Close SaveChanges:=False End With 'Delete the file you have send Kill TempFilePath & TempFileName & FileExtStr With Application .ScreenUpdating = True .EnableEvents = True End With End Sub
  7. menar du som ett tillägg så är det bara att göra som vanligt när du skickar en fil. I outlook väljer du att "bifoga fil" sedan väljer du ditt excel dokument
  8. Venoms

    Helghälsningar

    Just som de säger.. Ha en fin helg alla
  9. Du får gå in på Intel och läsa om den.
  10. Det är en uppdatering som ska täppa till säkerhetshålet Spectre Kabel Lake och Sky Lake är cpu system
  11. Kolla i system.. Jag tittade i min w10.. Det blev fel där.. sorry. Men det är i alla fall där du markerar visa dolda filer etc. Lite längre ner i listan bara. Jag ska kolla på jobbet om det finns någon gammal w7 kvar som jag kan leta i.
  12. Förlåt för sent svar.. Gå till Kontrollpanelen -> Alternativ för utforskaren -> Visning -> markera"Visa alltid menyer". Klicka OK. Eventuellt får du starta om. Nu har du menyerna.. eller du ska ha dem efter detta. OBS. Du måste gå via kontrollpanelen för att få detta att fungera.. även om det finns andra vägar att gå.
  13. Här hittade jag det.. https://support.microsoft.com/sv-se/help/2526067