Szia!

 

Tedd be ezt a kis makrót a munkafütetbe, hátha megoldja a problémát:

 

Sub MailKüldés()

Dim appOL As Object

Dim LEVEL As Object

Dim olAtt As Object

Dim Címzett As String ' A címzett(ek) címe

Dim Másolat As String 'Másolati címzett(ek) címe

Dim Targy As String 'A levél tágya

Dim Csatolás As String 'A csatolás elérési úttal

Dim Üzenet As String 'Az üzenet szövege

 

  Címzett = "címzett1@aaaa.hu; címzett2@bbbb.hu; címzett3@cccc.hu"

  Másolat = "Másolatnak1@dddd.hu; Másolatnak2@eeee.hu"

  Targy = "Az üzenet tárgya..."

  Csatolás = ActiveWorkbook.Path & ActiveWorkbook.Name

  Üzenet = "Ez itt az üzenet szövege..."

 

  Set appOL = CreateObject("Outlook.Application", "localhost")

  Set LEVEL = appOL.CreateItem(olMailItem)

  Set olAtt = LEVEL.Attachments

 

  olAtt.Add (Csatolás)

  LEVEL.To = Címzett

  LEVEL.CC = Másolat

  LEVEL.Body = Üzenet

  LEVEL.Subject = Targy

  LEVEL.Send

 

End Sub