Excel VBA email küldés - from paraméterrel - levél feladó megadása

Excel VBA email küldés - from paraméterrel - levél feladó megadása
2022-03-30T09:07:11+02:00
2022-03-30T10:23:42+02:00
2022-12-07T01:15:36+01:00
analgetika
Sziasztok,

Sok példát találtam excel-ből való email küldésre azonban olyat nem találtam, hogy hogyan lehet megadni, a feladó email címet.

Van két email címem (share mailbox) és azt szeretném, hogy excelben minden tételsorhoz megadom, hogy melyikről menjen, illetve melyik szerepeljen feladóként mivel az kapna vissza választ.

Dim OutApp As Object Dim OutMail As Object Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) On Error Resume Next 'mail parameterek With OutMail .To = "cimzett@mail.hu" .From = "felado@mail.hu" .CC = "" .BCC = "" .Subject = "tárgy" .Body = "" 'Az aktualis munkafuzet csatolasa, amibol fut a makro. '.Attachments.Add ActiveWorkbook.FullName 'Egyeb fajl csatolasa. .Attachments.Add ("c:\teszt.xls") .Send End
With

Feladót nem akarja figyelembe venni, felvenni, most beégetve küldeném be.

Van ötletetek
Mutasd a teljes hozzászólást!
Nézd meg ezt:

With OutMail .To = ws.Range("G2").Value .CC = "" .BCC = "" .Subject = "CUSTOMIZE" .Body = "CUSTOMIZE WHAT YOU WANT TO WRITE HERE" .Attachments.Add fpath & fName & ".PDF" .Display .SendUsingAccount = OutApp.Session.Accounts.Item(1)
Forrás:

Sending Emails Using Non-Default Account
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