Úprava kódu pro odeslání emailu. Vyřešeno

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

luko02420
Level 1.5
Level 1.5
Příspěvky: 140
Registrován: únor 12
Pohlaví: Nespecifikováno

Úprava kódu pro odeslání emailu.

Příspěvekod luko02420 » 01 zář 2018 20:10

Dobrý den, potřeboval bych poradit jak upravit tento kod, aby mi odesílal email automaticky pri zavření sesitu.
A dotaz, fungoval by kod po uprave i pro thunderbird, nebo je to jenom pro outlook?
Děkuji za pomoc.

Kód: Vybrat vše

Sub ExcelOutlookPriloha()
    '!!!!!Před použitím je třeba v Tools / References zaškrtnout volbu Microsoft Outlook xx.0 Object Library.!!!!!
    'Tools / References / Microsoft Outlook x.x Object Library

    Dim OutApp As Outlook.Application
    Dim OutMail As Outlook.MailItem
    Dim objNsp As Object
    Dim colSyc As Object
    Dim objSyc As Object
    Dim i As Integer
    Dim adresat As String
   
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(olMailItem)
    Set objNsp = OutApp.Application.GetNamespace("MAPI")  'CORRECTION to Refer to the OutLook Application correctly
    Set colSyc = objNsp.SyncObjects
   
    adresat = "aaa@seznam.cz"
   
    With OutMail
   
        'adresát
        .To = adresat
       
        'kopie pro
        '.CC = "schranka@email.com"
       
        'skrytá kopie pro
        '.BCC = "eee@gggg.cz"
       
        'předmět zprávy
        .Subject = "Dodací list (e)"
       
        'text zprávy a určení buňky
        .Body = "Dobrý den, , zasílám Vám dodací list číslo:  " & ActiveSheet.Range("D3") & Chr(13) & Chr(13) & "S pozdravem" & Chr(13) & Chr(13) & "bb" & Chr(13) & "vedoucí b" & Chr(13) & "b" & Chr(13) & "b5" & Chr(13) & "b" & Chr(13) & "mob: b b" & Chr(13) & "email: b"
       
        'aktivní (uložený) sešit jako příloha
        .Attachments.Add ActiveWorkbook.FullName
       
        'Nastavení preferovaného účtu pro odeslání pošty - v tomto případě druhý v pořadí
        'Dostupné od verze Office 2007
        .SendUsingAccount = OutApp.Session.Accounts.Item(1)

        'jiná příloha
        '.Attachments.Add ActiveWorkbook.Path & "\soubor.txt"
       
        'zobrazení okna se zprávou (není nutné)
        '.Display
       
        'odeslání zprávy
        .Send
       
    End With
     
    For i = 1 To colSyc.Count
        Set objSyc = colSyc.Item(i)
        objSyc.Start
    Next

    'OutApp.Quit
    MsgBox "Zpráva byla odeslána na adresu: " & adresat, vbInformation
    'uvolnění z paměti
    Set OutMail = Nothing
    Set objNsp = Nothing
    Set colSyc = Nothing
    Set objSyc = Nothing
    Set OutApp = Nothing
   
End Sub




Reklama
xlnc
Level 3.5
Level 3.5
Příspěvky: 873
Registrován: červenec 11
Pohlaví: Muž

Re: Úprava kódu pro odeslání emailu.

Příspěvekod xlnc » 01 zář 2018 20:39

Událostní procedura Workbook_BeforeClose.
Pokud vím, Thundebird nenabízí objektový model k dispozici, maximálně ještě CDO, když ne Outlook.
administrátor ProExcel.cz | lektor | vývojář | léčitel pro Microsoft Excel

luko02420
Level 1.5
Level 1.5
Příspěvky: 140
Registrován: únor 12
Pohlaví: Nespecifikováno

Re: Úprava kódu pro odeslání emailu.

Příspěvekod luko02420 » 02 zář 2018 12:12

Použil jsem tento kod, dotaz me naskocí ale kdyz odpovim ne, tak se mi sesit zavre. nevim co mam spatně.
Dík za pomoc.

Kód: Vybrat vše

Private Sub WorkBook_BeforeClose(Cancel As Boolean)
dotaz = "Odeslal jsi email?"
odpoved = MsgBox(dotaz, vbYesNo, "Ukončení práce...!")
If odpoved = vbNe Then Cancel = True
End Sub

xlnc
Level 3.5
Level 3.5
Příspěvky: 873
Registrován: červenec 11
Pohlaví: Muž

Re: Úprava kódu pro odeslání emailu.

Příspěvekod xlnc » 02 zář 2018 12:52

vbNo
administrátor ProExcel.cz | lektor | vývojář | léčitel pro Microsoft Excel

luko02420
Level 1.5
Level 1.5
Příspěvky: 140
Registrován: únor 12
Pohlaví: Nespecifikováno

Re: Úprava kódu pro odeslání emailu.

Příspěvekod luko02420 » 02 zář 2018 13:18

Děkuji
Jeste prosba, jak mam doplnit kod na odeslani emailu, aby mi treba do bunky D5 vlozil udaj kdy byl email odeslán.
Jeste jednou dekuji.

xlnc
Level 3.5
Level 3.5
Příspěvky: 873
Registrován: červenec 11
Pohlaví: Muž

Re: Úprava kódu pro odeslání emailu.

Příspěvekod xlnc » 03 zář 2018 12:04

Range("D5").Value=...

... Date, Now, něco...
administrátor ProExcel.cz | lektor | vývojář | léčitel pro Microsoft Excel

luko02420
Level 1.5
Level 1.5
Příspěvky: 140
Registrován: únor 12
Pohlaví: Nespecifikováno

Re: Úprava kódu pro odeslání emailu.  Vyřešeno

Příspěvekod luko02420 » 04 zář 2018 20:14

Děkuji


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Úprava kodu pro odeslání pdf.
    od luko02420 » 05 zář 2018 07:48 » v Kancelářské balíky
    6
    559
    od luko02420
    05 zář 2018 11:01
  • Úprava kódu
    od luko02420 » 04 dub 2019 11:33 » v Kancelářské balíky
    4
    255
    od luko02420
    04 dub 2019 15:31
  • Načtení QR kódu
    od luko02420 » 11 kvě 2018 13:57 » v Vše ostatní (sw)
    2
    573
    od luko02420
    12 kvě 2018 16:08
  • Oprava kódu chyby 0xc0000020
    od DeXx™ » 16 lis 2018 15:35 » v Windows 10, 8, 7, Vista, XP…
    6
    593
    od DeXx™
    20 lis 2018 17:17
  • Obnova smazaných emailů
    od abcz » 25 lis 2018 19:07 » v Vše ostatní (inet)
    2
    578
    od abcz
    25 lis 2018 19:57

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot], xlnc a 0 hostů