Excel és Outlook kapcsolat

Excel és Outlook kapcsolat
2007-08-13T13:30:12+02:00
2007-08-14T10:42:07+02:00
2022-11-05T13:15:37+01:00
hinar_
Olyan kérdésem lenne:
Van egy egy munkafüzetem, az egyik cellában egy kapcsolodást szeretnék csinálni az Outlook levezővel.
Ha a cellára kattintok (lehet link is) akkor nyissa meg az Outlook erre vonatkozó levelét.

Hogyan lehet ilyet csinálni?
Hogyan lehet erre valami megoldást találni?
A megoldás VB2005 vagy VBE-ben érdekelne.
Az excel és az Outlook is 2003-as verzió.
Mutasd a teljes hozzászólást!
Akkor feltételezve, hogy az inbox-ban van a levél és a tárgyát ismered:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If CStr(Target.Cells(1, 1)) = "" Then Cancel = False Else Cancel = True Dim oApp As New Outlook.Application Dim oNS As Outlook.NameSpace Dim oFldr As Outlook.MAPIFolder Dim oItems As Outlook.Items Dim oItem As Outlook.MailItem Set oNS = oApp.GetNamespace(oApp.Session) Set oFldr = oNS.GetDefaultFolder(olFolderInbox) Set oItems = oFldr.Items Set oItem = oItems.Find("[Subject] = """ & CStr(Target.Cells(1, 1)) & """") oItem.Display End If End Sub
Mutasd a teljes hozzászólást!

  • És mi lenne abban a cellában?
    Hogyan azonosítanád a levelet?
    Mutasd a teljes hozzászólást!
  • Akkor feltételezve, hogy az inbox-ban van a levél és a tárgyát ismered:
    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If CStr(Target.Cells(1, 1)) = "" Then Cancel = False Else Cancel = True Dim oApp As New Outlook.Application Dim oNS As Outlook.NameSpace Dim oFldr As Outlook.MAPIFolder Dim oItems As Outlook.Items Dim oItem As Outlook.MailItem Set oNS = oApp.GetNamespace(oApp.Session) Set oFldr = oNS.GetDefaultFolder(olFolderInbox) Set oItems = oFldr.Items Set oItem = oItems.Find("[Subject] = """ & CStr(Target.Cells(1, 1)) & """") oItem.Display End If End Sub
    Mutasd a teljes hozzászólást!
  • A cellában lenne Pl.link (erre nem gondoltam).
    A levél az inbox-ban van.
    Mutasd a teljes hozzászólást!
  • Ez most VB. Ez jó VBE-hez is?
    Mutasd a teljes hozzászólást!
  • Ezt a kódot hogy tudom alkalmazni?
    Olyanra gondoltam, hogy az egyik cellában van egy szöveg (A1), a másikban egy eamil link (B1). Ha a B1 ez cellára kattintok akkor megnyitná az email-t (természetesen az Outlooknak niytva kell lennie).
    Ilyenre gondoltam.
    Erre is tudsz megoldást?
    Vagy amit írtál ezzel müködik?
    Mutasd a teljes hozzászólást!
  • No most nem egészen értem: sikerült megértened és alkalmaznod a kódot és azért fogadtad el a megoldást, vagy csak azért mert nem reagáltam 10 percen belül?

    a másikban egy eamil link

    Mi a fene az az email link?

    A fenti kód az inboxban megkeresei az első olyan levelet aminek a subject-je a dulán kattintott cella értékével megegyezik, majd megnyitja. Természetesen nincs benne hibakezelés, oszlopra szűrés, stb - azt majd te megírod.

    Egyébként nem VB hanem VBA: Excel makró és egy munkalap BeforeDoubleClick eseményére ül rá. Hogy hogy akarsz ebből VB2005-ös vagy VBE kódot csinálni azt nem tudom, mert onnan nehéz figyelni az excel eseményeit (bár nem lehetettlen).
    Mutasd a teljes hozzászólást!
  • Bocsi VBA-ra goldoltam és az is kellet.
    Amit küldél megoldásokat mindig jó volt. Megnéztem és jónak tünt, csak egy kicsit elbizonytalodtam.
    Mutasd a teljes hozzászólást!
Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd