Legfrissebb anyagok
- XIAOMI Smart Air Purifier 4 Compact EU - légtisztító újabb okoseszköz a lakásban
- Optikai szál nem kell félnetek jó lesz, avagy a damil alapú hálózat
- A PC-m több mint 1 évtizedes története - AMD FX OC, 64GB RAM, ipari SSD - 1.rész
- Agglegénykonyha 15 – Néhány tavaszias recept
- Vinted - ahol debilnek néznek
LOGOUT témák
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- MasterDeeJay: Legolcsóbb "x99" gép építése. (folyamatban)
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- gban: Ingyen kellene, de tegnapra
- Luck Dragon: MárkaLánc
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- MasterDeeJay: Low budget (50.000 forint) light gémer gép összerakása
- lezso6: Szekunder szarkazmus
PROHARDVER! témák
Mobilarena témák
IT café témák
-
LOGOUT
LOGOUT
Új hozzászólás Aktív témák
-
Oly
őstag
Hali!
Akkor a példádnál maradva (2. sorban vannak az adatok)
Private Sub CommandButton1_Click()
Dim My_Outlook As Object
Dim My_Mail As Object
Set My_Outlook = CreateObject("Outlook.Application")
Set My_Mail = My_Outlook.CreateItem(olMailItem)
With My_Mail
.To = Range("A2")
.Subject = Range("B2")
.Body = Range("C2") & vbLf & vbLf & Range("D2") & vbLf & vbLf & Range("E2")
.Display
End With
Set My_Mail = Nothing
Set My_Outlook = Nothing
End SubFire.
Új hozzászólás Aktív témák
Topikgazda
Fferi50Aktív témák
Új fizetett hirdetések
Üzleti előfizetők hirdetései
- Lenovo ThinkPad L14 Gen 2 Ryzen 5 pro 5650U, 16GB RAM, 256-512GB SSD, jó akku, számla, gar
- BESZÁMÍTÁS! 2TB Samsung 870 EVO SATA SSD meghajtó garanciával hibátlan működéssel
- BESZÁMÍTÁS! MSI B450M R7 2700X 16GB DDR4 512GB SSD RTX 2060 Super 8GB Rampage SHIVA Adata 600W
- Bomba ár! Lenovo ThinkPad E555 - AMD A8 I 8GB I 512SSD I HDMI I 15,6" I Cam I W10 I Garancia!
- GIGABYTE GeForce RTX 4090 GAMING OC 24G GDDR6X Videokártya! BeszámítOK!
Állásajánlatok
Cég: aiMotive Kft.
Város: Budapest
Cég: Laptopműhely Bt.
Város: Budapest