Új hozzászólás Aktív témák

• #1723 Oly senior tag ArchElf #1722

  Új Válasz 2012-04-06 08:30:50 #1723

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Oly

  senior tag

  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 Sub

  Outlook2007-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?

  SonyEricsson T20 - T68 - T610 - K700 - W800 - K750 - K800 - C702 - P1 - MOTO Defy - Galaxy S Advance - Galaxy S4 - Lumia 820 - Honor 7 - iPhone 5S

Új hozzászólás Aktív témák