MS Excel

Dobrý den,
zkusím se zeptat jestli už tady někdo nezkoušel stahovat výsledky hlasování konkrétního meilu do excelu, jinak než ctrl+c a ctrl+v.
Respektive jak se dostat k oněm informacím pomocí vba ať už přímo v outlooku, nebo skrze excel a knihovny outlooku.
Hledal jsem informace o VotingResponse, ale to vypadá, že slouží jen k odpovědi, ale kde jsou informace o tom jak kdo hlasoval, to nějak ne a ne najít :-/.
Díky
M@

Zaslat odpověď >

kabaka(15.10.2016 18:31)#033093

Čo má na mysli pod pojmom výsledky hlasovania? Jedná sa o pracovnú poradu?

Pozri

http://www.techrepublic.com/blog/microsoft-office/quickly-export-outlook-e-mail-items-to-excel/

http://officetricks.com/outlook-email-download-to-excel/

https://social.msdn.microsoft.com/Forums/en-US/fa809869-4cfb-4f0b-a2eb-b6e5eaf0f094/outlook-vba-code-to-download-email-excelattachment?forum=isvvba

http://www.slipstick.com/developer/code-samples/macro-export-outlook-fields-excel/

http://stackoverflow.com/questions/28941582/exporting-emails-from-an-outlook-subfolder-to-excel

http://excel-macro.tutorialhorizon.com/vba-excel-attachmentfetcher-download-all-the-attachments-from-all-the-mails-of-specific-subject-in-microsoft-outlook/

http://stackoverflow.com/questions/11781320/download-attachment-from-outlook-and-open-in-excel

http://stackoverflow.com/questions/7890612/vba-code-to-save-an-attachment-excel-file-from-an-outlook-email-that-was-insid

http://www.rondebruin.nl/win/s1/outlook/saveatt.htm citovat

Jeza.m(17.10.2016 8:45)#033106

Jedná se o e-mail Outlooku, ve kterém jsou použita hlasovací tlačítka, kdy každý z příjemců může hlasovat pro některou z více předdefinovaných možností.

Nakonec vyřešeno makrem přímo v outlooku bez excelu, respektive dostat tyto výsledky do excelu už by bylo to nejmenší, ale tato metoda zdá se být i přívětivější než excel :-).

Funkce níže vytvoří HTML text s výsledky, tento lze buď uložit jako html stránku, nebo v mém případě odeslat e-mailem ve formátu html

Public Function HLASOVANI() As String

Dim myNameSpace As Outlook.NameSpace

Dim myFolder As Outlook.Folder

Dim myItem As Object

Set myNameSpace = Application.GetNamespace("MAPI")

Set myFolder = myNameSpace.GetDefaultFolder(olFolderSentMail)

Dim itmo As Object
Dim cnt As Single
cnt = 0

For Each itmo In myFolder.Items
cnt = cnt + 1
If itmo.Subject = "Jedinecny Predmet E-Mailu" Then
Exit For
End If
Next

Dim dicVotes As Object
Dim varOption As Variant
Dim arrOptions As Variant
Dim arrVotes As Variant
Dim itmx As MailItem

Set itmx = itmo

arrOptions = Split(itmx.VotingOptions, ";")
Set dicVotes = CreateObject("Scripting.Dictionary")

For Each varOption In arrOptions
dicVotes.Add varOption, 0
Next

dicVotes.Add "Bez odpovědi", 0

For Each olkRcp In itmx.Recipients
If olkRcp.TrackingStatus = olTrackingReplied Then
If dicVotes.Exists(olkRcp.AutoResponse) Then
dicVotes.Item(olkRcp.AutoResponse) = dicVotes.Item(olkRcp.AutoResponse) + 1
Else
dicVotes.Add olkRcp.AutoResponse, 1
End If
Else
dicVotes.Item("Bez odpovědi") = dicVotes.Item("Bez odpovědi") + 1
End If
Next

arrOptions = dicVotes.Keys
arrVotes = dicVotes.Items

Dim odpoved As String

odpoved = "<html><table border='0'>"
For intCnt = LBound(arrOptions) To UBound(arrOptions)
odpoved = odpoved & "<tr><td width='200'>" & arrOptions(intCnt) & "</td><td align='right'>" & arrVotes(intCnt) & "</td></tr>"
Next
odpoved = odpoved & "</table></html>"

HLASOVANI = odpoved
End Function

Ta podstatná část kódu čerpána z ...
https://techniclee.wordpress.com/2012/10/01/tallying-votes-in-outlook/
Díky
M@citovat

xlnc(17.10.2016 12:45)#033108

Mezi námi, pokud jste si v Outlooku nevytvořil formulář a šablonu, tak je to na pytel. Kromě toho existuje Microsoft InfoPath nebo primitivnější, ale účinná varianta - vytvořit dotazník v Microsoft Office Online, resp. Google Dokumentech (formuláře, dotazník). Výsledky jsou sbírány do obyčejného sešitu a vy se tak musíte postarat pouze o vyhodnocení.citovat

Téma: Excel / VBA / Outlook / výsledky hlasování

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje