Ú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
- Dell Optiplex 3050 SFF,i5-6500,8GB DDR4,256GB SSD, WIN11
- Dell Precision 5550,15.6",FHD+,i9-10885H,32GB DDR4,512 GB SSD,T2000 4GB,WIN11
- AMD Ryzen 7 9800X3D - Új, 3 év garancia - Eladó!
- Eladó egy pixel 8 pro 128/12
- 15.gen! Intel Core ULTRA 9 285K (24mag!) +32GB DDR5 kit +ASROCK Z890 PRO-A! GAR/SZÁMLA (Te nevedre)!
- HIBÁTLAN iPhone 11 64GB Red -1 ÉV GARANCIA - Kártyafüggetlen, MS4388
- Noctua NH-L12S L-Type
- AKCIÓ! Asus ROG Z790 i9 13900K 32GB DDR5 1TB SSD RX 7900 XTX 24GB Lian LI LANCOOL 207 ROG 750W
- Apple iPhone 15 Black 128GB használt szép állapot 100% akku 6 hónap garancia
- AKCIÓ! EVGA FTW3 Ultra Gaming RTX 3080Ti 12GB videókártya garanciával hibátlan működéssel
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
