Új hozzászólás Aktív témák

• #52128 föccer nagyúr szergejj #52127

  Új Válasz 2024-02-03 10:48:48 #52128

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  föccer

  nagyúr

  válasz szergejj #52127 üzenetére

  Makróból rá lehet venni az excelt, hogy kiküldje mail-be csatolmánnyal együtt.

  Egy példa rá,

  Sub Send_Email_with_Attachment()

Dim MyOutlook As Object
Set MyOutlook = CreateObject("Outlook.Application")

Dim MyMail As Object
Set MyMail = MyOutlook.CreateItem(olMailItem)

MyMail.To = "Person1@gmail.com"
MyMail.CC = "Person2@gmail.com"
MyMail.BCC = "Person3@gmail.com"
MyMail.Subject = "Sending Email with VBA."
MyMail.Body = "This is a Sample Mail."

Attached_File = "F:\ExcelDemy\Attachment.xlsx"
MyMail.Attachments.Add Attached_File

MyMail.Send

End Sub

  üdv, föccer

Új hozzászólás Aktív témák