- gban: Ingyen kellene, de tegnapra
- sziku69: Fűzzük össze a szavakat :)
- sh4d0w: Vigyázz a háttértáradra...
- Luck Dragon: Asszociációs játék. :)
- GoodSpeed: Samsung 980 PRO 1TB M.2 (MZ-V8P1T0BW) vs Samsung 990 PRO 2TB M.2 (MZ-V9P2T0BW)
- sziku69: Szólánc.
- Parci: Milyen mosógépet vegyek?
- hmzs: Fujitsu Futro S920 csúcsra járatva
- ldave: New Game Blitz - 2025
- Sgr_A: Számítógépeim aktualizálása cseréje
Aktív témák
-
matekmatika
tag
Szia! Ehhez mit szólsz?:
Private Sub CommandButton1_Click()
Dim objNameSpace
Dim objOutlookApp
Dim objItem
Set objOutlookApp = CreateObject(''Outlook.Application'')
Set objNameSpace = objOutlookApp.GetNameSpace(''MAPI'')
Set objItem = objOutlookApp.CreateItem(0) 'MailItem
objItem.To = ''cím@freemail.hu''
objItem.Attachments.Add ''C:\Windows\Asztal\proba.txt'', 1, , _
''Próba fájl''
objItem.Subject = ''Próba fájl''
objItem.Display
objItem.Send
End Sub
Ezt találtam, azaz majdnem ezt, volt az eredetiben több hiba is. Ez excelből tökéletesen működik, még win98 alatt is. Viszont lenne egy kérdésem. Az End Sub előtt még volt egy ilyen: ''Wscript.Quit''. Ennél hibajelzéssel leállt. Ezt kivettem így jó. Szükséges hogy az benne legyen? Ha nem akkor jó, de ha igen, akkor miként kellene átalakítani ezt az utasítást hogy jó legyen? Lehet ebben is csak valami elírás van.
Köszi.
Aktív témák
- E-roller topik
- Google Pixel topik
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Kertészet, mezőgazdaság topik
- Path of Exile 2
- Milyen asztali médialejátszót?
- Nyárbúcsúztató hardvermix
- Kínai és egyéb olcsó órák topikja
- Fujifilm X
- Már az MSI-nek is van 500 Hz-es QD-OLED monitora
- További aktív témák...
- MSI KATANA 17" Notebook! i7-13630H / RTX 4060 / 16GB DDR5 / 1 Tb SSD / 20 hónap GARANCIA
- Manfrotto Manhattan Mover-50 fotós hátizsák
- Peak Design - Everyday hátizsák 15L Zip v2 - éjkék
- National Geographic - Manfrotto fotós hátizsák
- Acer Nitro 5 - AN515 - 15,6"FHD IPS 144Hz - Ryzen 7 5800H - 24GB - 1,5TB SSD - RTX 3060 6GB - Win11
- Ritkaság! Hibátlan Prémium felsőkategóriás LGA 1700 Alaplap! Asus Rog Strix Maximus Hero Z790 Wi-Fi
- Clevo 1060 6GB Mxm 3.1 laptop videó kártya ingyen házhoz szálitással
- Samsung Galaxy A33 5G 128GB, Kártyafüggetlen, 1 Év Garanciával
- Honor Magic6 Lite 5G 256GB, Kártyafüggetlen, 1 Év Garanciával
- ÁRCSÖKKENTÉS Menő retró konfig: Q9550, Gigabyte P43, 4GB RAM, ASUS GT730
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest