Sende vedhæftede filer til flere e-mails og en fast kommentar
Hej!Jeg har her på eksperten fundet en makro som kan sende filer til forskellige e-mails vis outlook. Er det muligt at ændre nedenstående makro så den kan sende via Groupwise og yderligere at tilknytte en fast kommenter.
her er makro:
Hvis du har navnene I kolonne A og mailadresse i kolonne B og filnavn og sti i C kolonnen, er det ok.
Du markerer de navne i kolonne A du vil sende til og starter makroen, så sender den automatisk.
Sub Send_via_Outlook()
Dim Vedhæft As String
Dim olApp As Outlook.Application
Dim olNewMail As Outlook.MailItem
For Each C In Selection
Set olApp = New Outlook.Application
Set olNewMail = CreateItem(olMailItem)
Vedhæft = C.Offset(0, 2)
With olNewMail
.Recipients.Add C.Offset(0, 1)
'.CC = ""
'.BCC = "Evaluering"
.Subject = "Nye regneark"
.Body = "Hej " & C & Chr(13) & " hermed fremsendes nye regneark"
.Attachments.Add Vedhæft
.Save
.Display
.Send
End With
Set olNewMail = Nothing
Set olApp = Nothing
Next C
End Sub
