Telefonszámunk: 1-472-0679

Excelfájlt makróval Thunderbirdbe küldeni E-mailt

Kezdőlap › Fórumok › Excel programozás › Excelfájlt makróval Thunderbirdbe küldeni E-mailt

5 bejegyzés megtekintése - 1-5 / 5
  • Szerző
    Bejegyzés
  • 2015-06-03-15:29 #2072
    Titok
    Felhasználó

      Sziasztok!

      Hogyan lehet Ecelből az akt. fájlt egy makróval elküldeni mellékletként adott címre, adott tárggyal, adott Body szöveggel, de nem Outlokkban, hanem Thunderbird levelezőn?

      2015-06-03-16:16 #2073
      horvimi
      Adminisztrátor

        Szia!

        esetleg itt nézz utána:

        http://stackoverflow.com/questions/14505852/create-thunderbird-email-from-excel-macro

        imre

        2015-06-03-16:36 #2074
        Titok
        Felhasználó

          Köszönöm, ezt már próbáltam, de azt mondja, a Send-et nem engedi.(Rutime error ‘-214722 960 (80040220)
          A „SendUsing”konfigurációs érték érvénytelen.

          Ez a kód maga (nyílván to és from kitöltve), persze sok mindent nem értek belőle 🙂

          Sub CDO_Mail_Small_Text()
          Dim iMsg As Object
          Dim iConf As Object
          Dim strbody As String
          ‘ Dim Flds As Variant

          Set iMsg = CreateObject(„CDO.Message”)
          Set iConf = CreateObject(„CDO.Configuration”)

          ‘ iConf.Load -1 ‘ CDO Source Defaults
          ‘ Set Flds = iConf.Fields
          ‘ With Flds
          ‘ .Item(„http://schemas.microsoft.com/cdo/configuration/sendusing”) = 2
          ‘ .Item(„http://schemas.microsoft.com/cdo/configuration/smtpserver”) _
          ‘ = „Fill in your SMTP server here”
          ‘ .Item(„http://schemas.microsoft.com/cdo/configuration/smtpserverport”) = 25
          ‘ .Update
          ‘ End With

          strbody = „Hi there” & vbNewLine & vbNewLine & _
          „This is line 1” & vbNewLine & _
          „This is line 2” & vbNewLine & _
          „This is line 3” & vbNewLine & _
          „This is line 4”

          With iMsg
          Set .Configuration = iConf
          .To = „@.hu”
          .CC = „”

          .BCC = „”
          .From = „@.hu”
          .Subject = „New figures”
          .TextBody = strbody
          .Send

          End With

          End Sub

          2015-06-06-00:39 #2076
          vacip
          Felhasználó

            Szia!
            Mivel nincs Outlookod beállítva, a rendszer nem ismeri az SMTP szerveredet, amin keresztül a levelet elküldheti. A kikommentezett sorokat is használni kell ebben az esetben.
            És a “Fill in your SMTP server here” helyére írd be az SMTP szervered címét (Thunderbirdből ki tudod puskázni akár)!

            Az Imre által javasolt linken is hivatkoznak erre a címre:
            http://www.rondebruin.nl/win/s1/cdo.htm
            Nagyon jó oldal, rágd át, különös tekintettel a Read this!!! részre. 🙂

            A levél küldés nem egyszerű, nekem minden alkalommal legalább fél óra kísérletezés, hogy rájöjjek, melyik beállítással működik az adott környezetben. Szóval ne add fel, próbálkozz, és jelezz majd, hogy jutottál-e valamire!

            Péter

            2015-06-08-10:05 #2077
            Titok
            Felhasználó

              Köszi, sikerült végül, cserébe küldöm a megoldást, szerintem érthető (Az IP címek a fiók nevéhez van a fejbe tömbként beadva). Beírkáltam az egyes részekhez, hogy mit is csinál, ez talán segíthet másoknak is 🙂

              ‘hibát megvizsgálja
              hiba = Range(„G20”).Value
              If hiba = „Hiba!” Then
              MsgBox „Hiba van az adatokban, nem tudjuk így elküldeni!”
              End
              End If

              ‘megkeresi a fiókhoz tartozó IP címet
              fiok = Range(„D1”).Value
              For i = 1 To 30
              If fiok = tomb(i, 1) Then IPcim = tomb(i, 2)
              Next

              ‘lementi az éppen aktuális helyre másolatként Pd.xls néven a fájlt
              wb = ActiveWorkbook.Path
              wb = wb & „\Pd.xls”
              ActiveWorkbook.SaveCopyAs wb

              ‘Előkészíti a levelet, ide kell az IP cím
              Set iMsg = CreateObject(„CDO.Message”)
              Set iConf = CreateObject(„CDO.Configuration”)

              iConf.Load -1 ‘ CDO Source Defaults
              Set Flds = iConf.Fields
              With Flds
              .Item(„http://schemas.microsoft.com/cdo/configuration/sendusing”) = 2
              .Item(„http://schemas.microsoft.com/cdo/configuration/smtpserver”) _
              = IPcim
              .Item(„http://schemas.microsoft.com/cdo/configuration/smtpserverport”) = 25
              .Update
              End With

              strbody = „Mai p ” & fiok

              ‘A csatolmányt meg a címzetteket, tárgyat itt lehet megadni

              With iMsg
              Set .Configuration = iConf
              .To = ” @.hu”
              .CC = „”
              .AddAttachment wb
              .BCC = „”
              .From = ecim
              .Subject = strbody
              .TextBody = strbody
              .Send
              MsgBox „Rendelés elküldve!”

              End With

              ‘kitörli a Pd.xls fájlt

              Kill wb

              End Sub

            • Szerző
              Bejegyzés
            5 bejegyzés megtekintése - 1-5 / 5
            • Be kell jelentkezni a hozzászóláshoz.