Avatar billede alen32 Nybegynder
27. marts 2006 - 10:43 Der er 1 kommentar

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
Avatar billede alen32 Nybegynder
27. marts 2006 - 10:50 #1
Ups den sender allerede en fast kommenter. Er det muligt at sende det via groupwise?
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester