Send mail fra Word vha. VBA

Måske kan du anvende dette... Udviklet i word 2003 (reference til Microsoft Outlook 11.0 Object Library)

Sub klartTilmail()
Dim mailApp, Namespace, nyMail
Dim modtager, Emne, ccModtager, bccModtager, vedhftFiler, indhold

        modtager = "pb@supertekst-it.dk"                        'Test tekster
        Emne = "Test Mail"                                      '
        ccModtager = "xx@mail.dk;yy@mail.dk"                    '
        bccModtager = "aa@mail.dk;bb@mail.dk"                  '
        vedhftFiler = "D:\Eksperten\0510TilLabels.xls"          '
       
        indhold = ActiveDocument.Content
       
        Set mailApp = CreateObject("Outlook.Application")
        Set Namespace = mailApp.GetNamespace("MAPI")
        Set nyMail = mailApp.CreateItem(olMailItem)
       
Rem Modtager
        Set mailModtager = nyMail.Recipients
        mailModtager.Add modtager
 
Rem CC
        Set mailcc = nyMail.Recipients.Add(ccModtager)
        mailcc.Type = olCC

Rem BCC
        Set mailbcc = nyMail.Recipients.Add(bccModtager)
        mailbcc.Type = olBCC
       
Rem Emne
        nyMail.Subject = Emne
       
Rem Vedhft.fil - p.t. kun een fil
        If vedhftFiler <> "" Then
            Set att = nyMail.Attachments
            att.Add vedhftFiler
        End If
       
Rem Indhold
        nyMail.Body = indhold
       
        nyMail.Display                              'visning af mail
'        nyMail.Send                                'send mailen
End Sub

Hej Supertekst,

tak for dit forslag, som bringer mig et godt stykke på vej.

Jeg har dog det problem, at indholdet af worddokumentet er i HTML-format (med grafik og rammer m.m.)
Når jeg kører din kode, forsvinder al formatteringen og jeg ser kun den rene tekst.

Kan man løse problemet ved at erklære variablen "indhold" korrekt? Og hvad skal den i så fald være erklæret som?

Eller har du andre forslag?

Ser på det - vender tilbage...

Rem Version 2
Rem =========
Sub klartTilmail()
Dim mailApp, Namespace, nyMail
Dim modtager, Emne, ccModtager, bccModtager, vedhftFiler, indhold

        modtager = "pb@supertekst-it.dk"                        'Test tekster
        Emne = "Test Mail"                                      '
        ccModtager = "xx@mail.dk;yy@mail.dk"                    '
        bccModtager = "aa@mail.dk;bb@mail.dk"                  '
        vedhftFiler = "D:\Eksperten\0510TilLabels.xls"          '

Rem kopier dokumentets "forside" til udklipsholder - ophæv markering
        Selection.WholeStory
        Selection.Copy
        Application.Browser.Previous

        Set mailApp = CreateObject("Outlook.Application")
        Set Namespace = mailApp.GetNamespace("MAPI")
        Set nyMail = mailApp.CreateItem(olMailItem)
       
Rem Modtager
        Set mailModtager = nyMail.Recipients
        mailModtager.Add modtager
 
Rem CC
        Set mailcc = nyMail.Recipients.Add(ccModtager)
        mailcc.Type = olCC

Rem BCC
        Set mailbcc = nyMail.Recipients.Add(bccModtager)
        mailbcc.Type = olBCC
       
Rem Emne
        nyMail.Subject = Emne
       
Rem Vedhft.fil - p.t. kun een fil
        If vedhftFiler <> "" Then
            Set att = nyMail.Attachments
            att.Add vedhftFiler
        End If
           
        nyMail.Display                              'visning af mail
       
Rem Indhold - hentes fra udklipsholder
        SendKeys "%Rn", True                        'indsæt fra udklipsholder
       
'        nyMail.Send                                'send mailen
End Sub

Hej Supertekst,

Det virker umiddelbart inde fra Word, selvom jeg ikke er så glad for sendkeys.
Jeg ændrede sendkeys til ^v, da den er mere sprog-uafhængig end %rn (den duer jo kun på dansk)

Jeg afprøver det lige senere, når jeg kører den fra Access, som den skal. Men det burde ikke gøre nogen forskel, når koden er rettet til.

Så skal du nok få point :o)

Sig mig lige: er du konsulent? Evt freelancer?

Ok
Ja - har egen virksomhed - etabl. 1978

Hej igen,

Det virker fint - tusind tak :)

Hvad hedder din virksomhed?
Klik evt på mit navn og se mit minisite.

Skriv, hvis du er interesseret i et samarbejde - jeg er konstant på udkig efter gode office-konsulenter :o)

1) Glæder mig - selv tak
2) Supertekst
3) Kender den godt
4) Det gør jeg...

hmm, det virker ikke, hvis brugeren benytter Word som mail-editor.

Har du en løsning på det?
Der er 200 point ekstra på højkant

Skal forsøge....

:o)

Jeg har prøvet at aflæse om Outlook er konfigureret til at benytte Word som editor og derefter skifte editoren fra VBA. Men jeg kan ikke finde de rigtige kommandoer.
Jeg kan aflæse om en åbn mail er i Wordformat eller ej (med ActiveInspector.IsWordMail), men jeg skal jo helst vide det inden, så jeg kan skifte indstillingen inden mailen oprettes.