Hirdetés
Ú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
- Inno3D GeForce RTX 4070 Ti X3 12G - Karácsonyi akcióban!
- Redragon Kumara K552 RGB Brown Switch magyar billentyűzet
- Lenovo Thinkpad P1 Gen 6 - i9-13980HX, 32GB, 2TB SSD, 16" WQUXGA (3840 2400), RTX 4090
- 15.gen! Intel Core Ultra 9 285K +16-32GB DDR5 RAM +hűtött VRM-es Z890 lap! GAR/SZÁMLA (a Te nevedre)
- OP AudioCodes C450HD Ip Phones - Szines kijelzős - Teams/ Zoom telefon - Új dobozos
- Eladó szép Nokia 7 Plus 64GB / 12 hó jótállás
- Ducky One 3 FULL/TKL/SF/MINI billentyűzetek többféle színben és kapcsolókkal!
- ÁRGARANCIA!Épített KomPhone i5 14400F 32/64GB RAM RX 9060 XT 8GB GAMER PC termékbeszámítással
- Samsung Galax S23 Ultra 256GB, Kártyafüggetlen, 1 Év Garanciával
- Corsair Vengeance RGB DDR5 6000Mhz 2x16GB (32GB) DDR5 Memória
Állásajánlatok
Cég: BroadBit Hungary Kft.
Város: Budakeszi
Cég: Laptopszaki Kft.
Város: Budapest


