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

• #7897 Fire/SOUL/CD félisten Oly #7896

  Új Válasz 2010-08-07 17:42:23 #7897

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Oly #7896 üzenetére

  Hali!

  Akkor a példádnál maradva (2. sorban vannak az adatok)

  Private Sub CommandButton1_Click()
  Dim My_Outlook As Object
  Dim My_Mail As Object
  
  Set My_Outlook = CreateObject("Outlook.Application")
  Set My_Mail = My_Outlook.CreateItem(olMailItem)
  
  With My_Mail
  .To = Range("A2")
  .Subject = Range("B2")
  .Body = Range("C2") & vbLf & vbLf & Range("D2") & vbLf & vbLf & Range("E2")
  .Display
  End With
  
  Set My_Mail = Nothing
  Set My_Outlook = Nothing
  
  End Sub

  Fire.

  [ Szerkesztve ]

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