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

• #1485 Pongii csendes tag

  Új Válasz 2006-08-29 08:49:46 #1485

  Ú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

  

  Pongii

  csendes tag

  Sziasztok
  Segítséget szeretnék kérni, hogy, ha a kijelölés nem az A1-es cellától kezdődik, hogy kellene módosítani a kódot, hogy elküldje a levelet.
  Nekem nem sikerül megoldanom, pedig néhány variációt már kipróbáltam.
  
  Sub SendSelection()
  'alapparaméterek
  email_to = ''valaki@t-online.hu''
  email_cc = ''mas@freemail.hu''
  email_subject = ''Heti aktuális''
  'A küldendő rész a A110 tartomány ' Csak akkor működik, ha az A1 cellától van a kijelölés
  Range(''A110'').Select
  'Fájl/Küldés/levél címzettje menü kiválasztás
  SendKeys ''%flz''
  'Visszaállás az első email mezőre
  SendKeys ''+{TAB}+{TAB}+{TAB}''
  'email mezők feltöltése
  SendKeys email_to
  SendKeys ''{TAB}''
  SendKeys email_cc
  SendKeys ''{TAB}''
  SendKeys email_subject
  SendKeys ''{TAB}''
  'Levél elküldése Alt+é billentyűzetkombinációval
  SendKeys ''%é''
  
  End Sub

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