Hirdetés
- Hivatalos a OnePlus 13 startdátuma
- Fotók, videók mobillal
- Xiaomi Mi 9T Pro - tizenegyes!
- iPhone topik
- Xiaomi 15T Pro - a téma nincs lezárva
- Bemutatkozott a Poco X7 és X7 Pro
- Olyan lesz a Google Térkép, mint a segítőkész haver az anyósülésen
- Xiaomi 15 - kicsi telefon nagy energiával
- Honor Magic6 Pro - kör közepén számok
- Samsung Gear S3 - második kör
Ú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
- Bontatlan Lenovo ThinkPad T14s Gen 4 touch gari 2028.11
- Lenovo Thinkpad T490, 14" FHD IPS kijelző, I7-8565U CPU, 8GB DDR4, 256GB SSD, W11, Számla, 1 év gara
- LG 55QNED80T3A 4K UHD Smart AI TV MAGIC MOTION TÁVIRÁNYÍTÓVAL!
- Macbook Air 13" M1 A2337 2020 8GB Viseltes eszt. áll.
- Macbook Air 13" M1 A2337 2020 8GB Pixelhiba
- ÁRGARANCIA!Épített KomPhone Ryzen 7 9700X 32/64GB RAM RX 7800 XT 16GB GAMER PC termékbeszámítással
- Redmi 15C / 4/128GB / Kártyafüggetlen / 12Hó Garancia / BONTATLAN NULL Perces
- Bomba ár! Dell Latitude 7330 - i5-1235U I 16GB I 256SSD I HDMI I 13,3" FHD I Cam I W11 I Garancia!
- Gamer PC-Számítógép! Csere-Beszámítás! R5 5500 / RX 6700XT 12GB / 32GB DDR4 / 512GB SSD
- BESZÁMÍTÁS! 64GB(2x32GB) Kingston Fury Beast 3200MHz DDR4 memória garanciával hibátlan működéssel
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő


