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

• #1489 Pongii csendes tag Pongii #1488

  Új Válasz 2006-08-29 12:35:45 #1489

  Ú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

  válasz Pongii #1488 üzenetére

  Na, talán tudom a kérdésemre a választ megpróbálom újra. Bocs!
  ---------------------------------------------------------------------------------------------------------------------------------
  
  Pontosítva: azt szeretném, hogy rákattintok egy gombra az excel táblán, akkor küldjön el
  automatikusan egy előre definiált tartományt email-ban a címzett részére.
  A problema az, hogy a tartomány amit el szeretnék küldeni nem A1-es cellától kezdődik és ezáltal nem működik a küldés.
  
  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 A1:F10 tartomány ' Csak akkor működik, ha az A1 cellától van a
  ' kijelölés, ezen kellene változtatni.
  Range(''A1:F10'').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
  
  
  Bemásolva egy új modulba futni fog, de csak az excel munkalapról indítva fut helyesen a
  szerkesztőben nem.
  Tehát abban segítsetek, hogy-ha Range(''A1:F10'') tartomány helyett Range(''G10:W30'')
  szeretnék küldeni, hogy módosítsam a kódot, hogy működjön a küldés.

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