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

  • 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 :F
    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
    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

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