Többszörös csatolmány e-mailhez VBA-ból

Többszörös csatolmány e-mailhez VBA-ból
2021-09-22T18:21:36+02:00
2021-09-27T12:05:48+02:00
2022-10-15T21:25:22+02:00
Gyorgy53
A prog.hu-n található útmutatások alapján elkészített kód jól működik. A problémám az, hogy miképpen tudok e-mailhez több fájlt csatolni. A jelenlegi megoldásomban egy szöveg változó  tartalmazza az elérési utat. Próbáltam összefűzni őket ";2-vel elválasztva, de ez nem működik.  (A címek esetében viszont igen) A kérdéses kód részlet:

Dim Outlookprogi As Object Dim Email As Object Dim Csatolmany As String Csatolmany = Me.CSatolas Set Outlookprogi = CreateObject("Outlook.Application") Set Email = Outlookprogi.CreateItem(0) With Email .to = Me.Sablon_Cim .CC = Me.Sablon_Masolat .BCC = Me.Sablon_T_Masolat .Subject = Me.Sablon_Targy .Body = Me.Sablon_Szoveg .Attachments.Add Csatolmany .Send End With Set Outlookprogi = Nothing Set Email = Nothing
Mutasd a teljes hozzászólást!
Szia!
Az .Attachments.Add Csatolmány hozzáad egy fájlt (aminek az elérési útja és fájlneve a Csatolmány változóban van), de ebből írhatsz több sort, amennyi csatolt fájl van. Egy parancs (a nevéből adódóan) egy fájlt ad az e-mailhez. Ha a fájlok neve ";"-vel van egy változóban, akkor alakítsd át egy tömbbé (split-tel) és a tömbelemeket egymás után foreach ciklusban hozzáadhatod az e-mailhez.
Mutasd a teljes hozzászólást!

  • szia, 

    az a gyanúm, hogy a with kever meg. 

    ne úgy képzeld el, mint egy függvényt a paramétereivel, inkább úgy mit egy osztály+metódusok. 
    ha 2x futtatsz egy metódust, akkor 2szer fut... 

    tehát a with összefogó szócska.

    With Email .to = Me.Sablon_Cim .CC = Me.Sablon_Masolat .BCC = Me.Sablon_T_Masolat .Subject = Me.Sablon_Targy .Body = Me.Sablon_Szoveg .Attachments.Add Csatolmany .Send End With
    ez felírható

    Email.to = Me.Sablon_Cim Email.CC = Me.Sablon_Masolat Email.BCC = Me.Sablon_T_Masolat Email.Subject = Me.Sablon_Targy Email.Body = Me.Sablon_Szoveg Email.Attachments.Add Csatolmany Email.Send
    formában is.

    igy már gondolom látod hogy   
    Email.Attachments.Add
    metódusból több is lehet
    Mutasd a teljes hozzászólást!
  • Köszönöm a tanácsot. Az a bosszantó, hogy magam is rájöhettem volna, de a lényeg, hogy működik.
    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