Email küldés excelből

Email küldés excelből
2008-09-26T10:32:03+02:00
2008-09-26T13:12:12+02:00
2022-11-11T01:25:36+01:00
nov_ice
Sziasztok!

Van egy excel munkafüzetem, amely egy árajánlatot készít. A kész ajánlat munkalapját kimásolom, és beillesztéssel szeretném elhelyezni egy új outlook levélbe a "levél üzenete" sor alá.
Eddig ezt sikerült összehoznom, de megakadtam, hogy hogyan helyezhető be a vágólapról.

Private Sub kuldes()
Dim ouApp As New Outlook.Application
Dim level As Outlook.MailItem
ouApp.Session.Logon 'Az uj sor!!!
Set level = ouApp.CreateItem(olMailItem)
level.Display
With level
.To = "KádvesÜgyfélNeve@freemailxxxx.xxx"
.Subject = "Árajánlat"
.Importance = olImportanceHigh ' Fontosság
.HTMLBody = "<HTML><H2>Cím</H2><BODY><p><b>A levél üzenete</b></p></body></html>"
End With
End Sub


Kérem segítségeteket.
Előre is köszönöm!!
Mutasd a teljes hozzászólást!
Na, a HTML-es móka az nehezebb már, de nemrég volt róla szó itt. A téma ne tévesszen meg, görgess a végére, ott lesz az, amit keresel, csak nem SetCliboardData(), hanem GetClipboardData() a használandó függvény (ennek megfelelő függvény is deklarálnod kell declare function-nel, ezt guglival pillanatok alatt meg fogod találni.

De küldhető nem csatolmányként is, csak ne azt a menüpontot bökd meg, amin az attachment szó szerepel.
Mutasd a teljes hozzászólást!

  • Minek kimásolni? Excel-ből küldhetsz e-mail-t is.

    Send a workbook or worksheet in e-mail
    Open the workbook you want to send.
    Do one of the following:
    Send the entire workbook as an attachment

    On the File menu, point to Send To, and then click Mail Recipient (as Attachment).
    If you want, you can include an additional file.

    How?

    In the message, click Attach.

    Click a shortcut (parancsikon: Olyan ikon, amely egy másik helyen tárolt programra vagy fájlra mutat.) on the Places Bar (Forráshelyek sáv: Egyes párbeszédpanelek (például a Megnyitás, Mentés másként vagy Kép beszúrása panel) bal oldalán látható sáv, mely parancsikonokat tartalmaz a Legújabb dokumentumok, Asztal, Dokumentumok, Sajátgép és Hálózati helyek mappákhoz.) or, in the Look in box, click the drive, folder, or Internet location that contains the file you want to include.

    Click the file you want to include, and then click Insert.

    Repeat steps for each additional file you want to include.

    Send a selection or a worksheet as a message

    If you want to send specific cells on a worksheet, select the cells you want to send.
    On the File menu, point to Send To, and then click Mail Recipient.
    If prompted whether to send the entire workbook or just the current sheet, click Send the current sheet as the message body.
    In the To and Cc boxes, enter recipient names, separated by semicolons.
    If you want to verify names you've typed against your address book, click Check Names .

    Type a subject in the Subject box.
    If you are sending Microsoft Excel data as a message, you can include explanatory text. Type your text in the Introduction box.

    If Microsoft Outlook is your mail program, you can customize the message.
    How?

    These options are available when you have an e-mail message open and you are using Microsoft Outlook.

    Importance and sensitivity level
    Change the importance level

    To mark as very important, click Importance: High .
    To mark as not important, click Importance: Low .
    Set a message flag

    Flagging a message adds a flag icon to it. You can use the flags to remind yourself to follow up on an issue or to indicate a request for someone else. You can also use flags to set a reminder for the message.

    Click Message Flag .
    In the Flag to box, click the flag you want, or type your own.
    Enter a date and time in the Due by boxes.
    Mark a message as private, personal, or confidential

    In the message, click Options .
    In the Sensitivity box, click the option you want.
    Note Marking a message Private prevents the message from being modified after you send it.

    Security level
    Help add security to messages

    In the message, click Options .

    Under Security, click Security Settings.

    Set the desired options.
    Track messages and replies
    Receive notification when a message is read or delivered

    In the message, click Options .

    Under Voting and tracking options, select the Request a delivery receipt for this message or Request a read receipt for this message check box.

    Add voting buttons to an e-mail message

    This feature requires Microsoft Exchange.
    In the message, click Options .
    Select the Use voting buttons check box, and then click the voting button names you want to use in the box.
    To create your own voting button names, delete the default button names, and then type any text you want. Separate the button names with semicolons.

    Under Delivery options, select the Save sent message to check box. To select a folder other than the Sent Items folder, click Browse.
    Save a copy of this message to a folder other than Sent Items

    In the message, click Options .
    Under Delivery options, select the Save sent message to check box.
    Click Browse, and then click the folder you want.

    Assign a message to a category

    A category is a keyword or phrase that helps you keep track of items (elem: Az elem az Outlook programban az információ tárolásának alapegysége (ugyanúgy, ahogy más alkalmazásokban a fájlok). Az elemek lehetnek e-mail üzenetek, találkozók, névjegyek, feladatok, naplóbejegyzések, megjegyzések, valamint elküldött elemek és dokumentumok.) so you can easily find, sort, filter, or group them.

    In the message, click Options .
    Click Categories.
    In the Available categories list, select the check boxes next to the categories you want, and then click OK.
    Delivery options
    Make a message unavailable after a specified date

    In the message, click Options .
    Under Delivery options, select the Expires after check box, and then enter the expiration date you want.
    Delay delivery of the message

    In the message, click Options .
    Under Delivery options, select the Do not deliver before check box, and then enter the delivery date and time you want.
    Click Send, Send this Sheet, or Send this Selection .


    Természetesen mindez automatizálható is makróval, lásd SendMail() metódust, valamint MailSystem, MailLogon, MailLogoff, MailSession tulajdonságokat/metódusokat.
    Mutasd a teljes hozzászólást!
  • Meg ha programozol, akkor azért a vágólapot nem túl sűrűn kell használni, hiszen az excel makróból elérhető a kijelölt tartomány, mint változó is.
    Mutasd a teljes hozzászólást!
  • Köszönöm !
    A vágólap csak azért jutott eszembe, mert az oldal tele van képletekkel, és makrókkal, így ezt tartottam a legegyszerűbbnek azzal a tudással amivel e témában rendelkezem. Illetve nem csatolásként hanem HTML formátumban szeretném küldeni, hogy megjegyzést is írható legyen alá.
    Mutasd a teljes hozzászólást!
  • Na, a HTML-es móka az nehezebb már, de nemrég volt róla szó itt. A téma ne tévesszen meg, görgess a végére, ott lesz az, amit keresel, csak nem SetCliboardData(), hanem GetClipboardData() a használandó függvény (ennek megfelelő függvény is deklarálnod kell declare function-nel, ezt guglival pillanatok alatt meg fogod találni.

    De küldhető nem csatolmányként is, csak ne azt a menüpontot bökd meg, amin az attachment szó szerepel.
    Mutasd a teljes hozzászólást!
  • Köszönöm kedvességed, hogy a HTML-re is írtál megoldást, de megpróbálom az első verziót is.

    Mégegyszer köszönöm!
    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