Avatar billede Silverslith Nybegynder
02. december 2014 - 12:16

Excel/VBA - Længde på email afsendt direkte fra Excel ark.

Hej eksperter

Jeg har fundet et stykke kode på nettet som jeg bruger til at generere en email med indhold fra en række forskellige celler i arket og som udgangspunkt fungerer det fint.
Jeg har dog det problem at teksten bliver begrænset og den sidste del, over en hvis længde, bliver skåret væk når e-mailen genereres. Nogle gange genererer den desuden e-mailen uden brødtekst.

Er der en måde at komme ud over dette problem på uden at skulle skifte hele koden ud?

Sub SendEMail()
    Dim Email As String
    Dim Msg As String
    Dim URL As String
    Dim Subj As String
       
'      Set Email adress
        Email = Cells(1, 5)
       
'      Message subject
        Subj = Cells(3, 5) & " " & Cells(4, 5)

'      Compose the message
        Msg = ""
        Msg = Msg & Cells(4, 19) & vbCrLf & vbCrLf & Cells(5, 19) & vbCrLf & Cells(6, 19) & vbCrLf & _
        Cells(7, 19) & vbCrLf & Cells(8, 19) & vbCrLf & Cells(9, 19) & vbCrLf & vbCrLf & Cells(10, 19) & vbCrLf & vbCrLf & Cells(11, 19)
       
'      Replace spaces with %20 (hex)
        Subj = Application.WorksheetFunction.Substitute(Subj, " ", "%20")
        Msg = Application.WorksheetFunction.Substitute(Msg, " ", "%20")
               
'      Replace carriage returns with %0D%0A (hex)
        Msg = Application.WorksheetFunction.Substitute(Msg, vbCrLf, "%0D%0A")

'      Create the URL
        URL = "mailto:" & Email & "?subject=" & Subj & "&body=" & Msg

'      Execute the URL (start the email client)
        ShellExecute 0&, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus

End Sub
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
Kurser inden for grundlæggende programmering

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