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

• #20172 the radish senior tag

  Új Válasz 2014-01-20 08:44:36 #20172

  Ú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

  

  the radish

  senior tag

  Sziasztok!
  Adott az alábbi macro:
  Sub Mail_Workbook_1()
  ' Works in Excel 2000, Excel 2002, Excel 2003, Excel 2007, Excel 2010, Outlook 2000, Outlook 2002, Outlook 2003, Outlook 2007, Outlook 2010.
  ' This example sends the last saved version of the Activeworkbook object .
  Dim OutApp As Object
  Dim OutMail As Object
  
  Set OutApp = CreateObject("Outlook.Application")
  Set OutMail = OutApp.CreateItem(0)
  
  On Error Resume Next
  ' Change the mail address and subject in the macro before you run it.
  With OutMail
  .To = "akármi@akármi.hu"
  .CC = ""
  .BCC = ""
  .Subject = "This is the Subject line"
  .Body = "Hello World!"
  .Attachments.Add ActiveWorkbook.FullName
  ' You can add other files by uncommenting the following line.
  '.Attachments.Add ("C:\test.txt")
  ' In place of the following statement, you can use ".Display" to
  ' display the mail.
  .Send
  End With
  On Error GoTo 0

  Azonban 2003-as office-ban küldés előtt ez az ablak jelenik meg és nem is küldi el, csak ha az igen-re klikkelek:
  

  (2013-asban jól működik)

  Kérdés: Van-e lehetőség arra, hogy kérdés nélkül küldje az emailt?

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