Hirdetés
- Tiltott lett Lufthansa-csoport repülőin power bankot használni
- iPhone topik
- Samsung Galaxy S23 Ultra - non plus ultra
- IDC: 2025-ben a Huawei megnyerte Kínát, az Apple a világot
- OnePlus 15 - van plusz energia
- Honor Magic6 Pro - kör közepén számok
- Messze nyolcezer fölött!
- Bejött a dupla megjelenítő a Lavanak
- Megjöttek Magyarországra a Redmi Note 15-ök, január 22-től ennyiért kaphatók
- Samsung Galaxy S25 Edge - a tegnap határán
Új hozzászólás Aktív témák
-
Oly
őstag
válasz
ArchElf
#1722
üzenetére
Szia
Private Sub Command1_Click()
Dim objOutlook, objMail, oAddSig
Set objOutlook = CreateObject("Outlook.Application")
objOutlook.Session.Logon
Set objMail = objOutlook.CreateItem(olMailItem)
Set objOutlook = objMail.GetInspector
With objMail
.SentOnBehalfOfName = "nemazennevem@valami.hu"
.To = "to"
.Cc = "cc"
.Subject = "Subject"
.Body = "body"
.Display
End With
Set objOutlook = Nothing
Set objMail = Nothing
End SubOutlook2007-nél átírja a feladót, Excelből indítva 2010-nél is.
HTML-ből, vagy VB6-tal csinált exe-nél már nem.
2010-nél egy lenyíló listából tudom kiválasztani az eddig használt feladókat. Lehet, hogy itt valami objektumként kezeli már?
Új hozzászólás Aktív témák
- Eladó XFX Speedster QICK 319 AMD Radeon RX 6750 XT / kb 6 hó alza gari
- iPhone 15 128GB ÚJ gyári független 2029.01.09 Jótállás
- Frissen pasztázva! Playstation 4 Pro 1 TB + kontroller 6 hó garancia, számlával!
- Apple iPhone 13 128GB, Kártyafüggetlen, 1 Év Garanciával
- Eladó PS5 Pro + ajándék Garanciás 2028.12.11-ig
- Samsung Galaxy S22 5G 128GB, Kártyafüggetlen, 1 Év Garanciával
- ÁRGARANCIA! Épített KomPhone Ultra 9 285K 64GB RAM RTX 5090 32GB GAMER PC termékbeszámítással
- Keresünk iPhone 16/16e/16 Plus/16 Pro/16 Pro Max
- Dell Latitude 7320 i5-1145G7 16GB 512GB 1 év garancia
- ÁRGARANCIA!Épített KomPhone Ryzen 5 5600X 16/32/64GB RAM RX 9060 XT 8GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: Central PC számítógép és laptop szerviz - Pécs
Város: Pécs


