Avatar billede Mortend6 Nybegynder
24. september 2010 - 09:18 Der er 2 kommentarer og
1 løsning

forhåbentligt let spørgsmål ".from"

Hej

jeg benytte denne makro til automatisk at sende en mail ud:

Sub Mail_Range_Outlook_Body_XX()
' Don't forget to copy the function RangetoHTML in the module.
' Working in Office 2000-2010
    Sheets("mail").Range("f32").Select
    ActiveCell.FormulaR1C1 = "1"
   
    Dim rng As Range
    Dim OutApp As Object
    Dim OutMail As Object

    With Application
        .EnableEvents = False
        .ScreenUpdating = False
    End With

    Set rng = Nothing
    On Error Resume Next
    Set rng = Sheets("kreditark").Range("a1:f42").SpecialCells(xlCellTypeVisible)
    On Error GoTo 0

    If rng Is Nothing Then
        msgbox "The selection is not a range or the sheet is protected" & _
              vbNewLine & "please correct and try again.", vbOKOnly
        Exit Sub
    End If

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    On Error Resume Next
    With OutMail
        .to = Sheets("mail").Range("g3").Value
        .CC = "xx@xx.dk"
        .BCC = ""
        .Subject = Sheets("mail").Range("l5").Value
        .HTMLBody = RangetoHTML(rng)
        .Display  'or use .Send
    End With
    On Error GoTo 0

    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With

    Set OutMail = Nothing
    Set OutApp = Nothing
   
   
   
End Sub



[b]Mit spørgsmål er om, der er nogen, der ved hvorfor man ikke kan definere en fast afsender mailadresse, f.eks. som .from eller lignende?

Hedder det bare noget andet end .from???[\b]

PFT
Avatar billede claes57 Ekspert
24. september 2010 - 10:56 #1
jf http://www.eggheadcafe.com/software/aspnet/31271509/email--outmail--from.aspx
".From is not a valid argument... Outlook will attach the account email
address as from automatically.  It will not show up on an email until it is
actually sent, so if you use the .display or .save arguments you will not see
a from on the email yet."

men du kan bruge et trick:
Change sender name and reply address
If you want to change the sender name and reply address add this code line The receiver can see the original mail address in the properties if he want
    .SentOnBehalfOfName = """SenderName"" <Reply@Address.com>"

Change Account (only Excel/Outlook 2007)
Use the Account you want in mail macro in Excel/Outlook 2007
http://www.rondebruin.nl/mail/account.htm
Avatar billede Mortend6 Nybegynder
24. september 2010 - 11:48 #2
perfect tak!!

its all about stealing the good stuff from other :o)

skriver du lige et svar, så får du dine point
Avatar billede claes57 Ekspert
24. september 2010 - 13:54 #3
ok - du kan jo ikke give point til det andet forum.
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

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