Avatar billede pharlap Nybegynder
14. august 2005 - 02:11 Der er 4 kommentarer og
1 løsning

email makro der henter værdier i "subject" feltet

Hejsa.
Jeg sidder og har lavet en excel ark, hvor jeg har forskellige værdier jeg gerne ville kunne tilføje i et subject felt.

Jeg har kopieret dette fra en af de tidligere poster..

Sub Send_via_Outlook()
Dim olApp As Outlook.Application
Dim olNewMail As Outlook.MailItem

Set olApp = New Outlook.Application
Set olNewMail = CreateItem(olMailItem)

With olNewMail
    .Recipients.Add "webmaster@chat-forum.dk"
        '.BCC = "Evaluering"
    .Subject = "Udføres"
    .Body = "Hermed en lille opgave til jer"
    With .Attachments
        .Add ThisWorkbook.Path & "\" & ThisWorkbook.Name
        End With
    .Save
    .Send
End With

Set olNewMail = Nothing
Set olApp = Nothing

End Sub
--------------------------------
Dette virker fint nok..
Men mit spørgsmål lyder så på...
Hvis jeg nu vil have at der i subject står flg.

Udføres <dato værdien af I26> <Værdi af k70> osv osv
Avatar billede pharlap Nybegynder
14. august 2005 - 02:12 #1
ups.. fik ikke tastet færdigt... men hvis jeg ønsker ovenstående "subject" findes der så en kode der kan udføre dette?
Avatar billede bak Forsker
14. august 2005 - 21:03 #2
Sub Send_via_Outlook()
Dim olApp As Outlook.Application
Dim olNewMail As Outlook.MailItem
Dim strSubject As String
Set olApp = New Outlook.Application
Set olNewMail = CreateItem(olMailItem)
'*******
strSubject = "Udføres " & Range("I26").Text & ", " & Range("K70").Text
'*******
With olNewMail
    .Recipients.Add "webmaster@chat-forum.dk"
        '.BCC = "Evaluering"
    '*********
    .Subject = strSubject
    '*********
    .Body = "Hermed en lille opgave til jer"
    With .Attachments
        .Add ThisWorkbook.Path & "\" & ThisWorkbook.Name
        End With
    .Save
    .Send
End With

Set olNewMail = Nothing
Set olApp = Nothing

End Sub
Avatar billede pharlap Nybegynder
15. august 2005 - 03:25 #3
Hej igen og tak for hjælpen.
Hvis nu at man siger at jeg har 3 kolonner. Data, Fax og mobil
Hvis så at man taster i data kolonnen, så skal subject være Data, osv med fax og mobil
Men hvis der står noget  i bare 2 af kolonnerne, så skal der i subject stå Diverse

Kan du følge mig eller var det ren volapyk?
Avatar billede pharlap Nybegynder
17. august 2005 - 23:00 #4
bak>> tager du lige og lægger et svar så du kan få de point?
Så starter jeg lige spørgsmål 2 op i en anden tråd.. :O)
Avatar billede bak Forsker
11. december 2005 - 15:01 #5
ok :-)
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