PROHARDVER! témák
Mobilarena témák
IT café témák
-
Fototrend
Fototrend
Ú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
- iPhone 11 Pro 64GB 100% (3 hónap garancia)
- HIBÁTLAN iPhone 12 Pro 256GB Pacific Blue -2 ÉV GARANCIA - Kártyafüggetlen, MS5610, 100% AKKSI
- GYÖNYÖRŰ iPhone 15 Plus 128GB Blue -2 ÉV GARANCIA - Kártyafüggetlen, MS5344
- Apple iPad 5. generáció (A1822) 128GB, asztroszürke
- Bomba ár! HP ZBook 15u G3 - i7-6G I 8GB I 256SSD I Radeon R7 I Cam I W11 I Garancia!
Állásajánlatok
Cég: aiMotive Kft.
Város: Budapest
Cég: Laptopműhely Bt.
Város: Budapest