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

• #1684 Oly őstag martonx #1683

  Új Válasz 2012-03-05 09:49:30 #1684

  Ú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

  őstag

  válasz martonx #1683 üzenetére

  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.

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