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

• #21364 takos tag

  Új Válasz 2014-04-24 11:18:02 #21364

  Ú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

  

  takos

  tag

  Sziasztok!

  Készítettem egy kis makrot, ami elküldi magát az excel fájlt levélként.
  Amit nem tudok megoldani, hogy a tárgy mezőben egyszerre több értéket jelenítsen meg és küldjön el a levélben.
  Más működik.

  Pl. szeretném, ha C1, D1, E1 cella tartalma is bekerülne a levél tárgyába.

  ez a makro:
  Sub level()
  Dim OutApp As Object
  Dim OutMail As Object

  Set OutApp = CreateObject("Outlook.Application")
  Set OutMail = OutApp.CreateItem(0)

  On Error Resume Next
  With OutMail
  .to = "xy@xy.hu"
  .CC = ""
  .BCC = ""
  .Subject = ThisWorkbook.Sheets("Munka1").Range("C1").Value
  .Body = "Teszt uzemmod"
  .Attachments.Add ActiveWorkbook.FullName
  .Send
  End With
  On Error GoTo 0

  Set OutMail = Nothing
  Set OutApp = Nothing
  End Sub

  Üdv:
  takos

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