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

• Oly őstag

  #1686

  #1684 Oly

  2012-03-05 12:39:07

  Új Válasz

  Ú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

  

  Oly

  őstag

  #1684 Oly

  #1684 Oly

  Azt hittem, hogy van jobb lehetőség is.
  Mivel csak 2-3 button van, így nem gázos... Köszi

  Más:

  Function mailsender()
  Dim objOutlook, objMail, oAddSig
  
  Set objOutlook = CreateObject("Outlook.Application")
  objOutlook.Session.Logon
  Set objMail = objOutlook.CreateItem(olMailItem)
  Set objOutlook = objMail.GetInspector
  
  With objMail
  .SentOnBehalfOfName = "from"
  .To = "to"
  .Cc = "cc"
  .Subject = "Subject"
  .Body = "Body"
  .Display
  End With
  
  Set objOutlook = Nothing
  Set objMail = Nothing
  End Function

  Hogyan tudnám megadni, hogy a felugró levélhez már szúrja be az alapértelmezett Outlook aláírást is?
  Amiket találtam (pl: [link]) azért nem jó, mert több gépen fogják használni, más-más aláírási filenévvel.

  Találtam egy ilyet is, de ez meg nem akar működni HTML-be ültetve.

  Az otthoni gépemen már működött a lenti script, de melóban nem megy.
  Win7 + Outlook 2007 és Server 2003 + Outlook 2010 esetén sem ment.
  Azt mondta, hogy:
  ActiveX component can't create object: 'Outlook.Application'

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