Hirdetés

Új hozzászólás Aktív témák

  • ArchElf
    addikt

    Szia

    Private Sub Command1_Click()
    Dim objOutlook, objMail, oAddSig

    Set objOutlook = CreateObject("Outlook.Application")
    objOutlook.Session.Logon
    Set objMail = objOutlook.CreateItem(olMailItem)
    Set objOutlook = objMail.GetInspector

    With objMail
    .SentOnBehalfOfName = "nemazennevem@valami.hu"
    .To = "to"
    .Cc = "cc"
    .Subject = "Subject"
    .Body = "body"
    .Display
    End With

    Set objOutlook = Nothing
    Set objMail = Nothing
    End Sub

    Outlook2007-nél átírja a feladót, Excelből indítva 2010-nél is.
    HTML-ből, vagy VB6-tal csinált exe-nél már nem.
    2010-nél egy lenyíló listából tudom kiválasztani az eddig használt feladókat. Lehet, hogy itt valami objektumként kezeli már?

    Úgy rémlik, hogy az automata üzenetküldö férgek letöréséért a nem Office-ból meghívott Outlook objektumok nem tudnak automatikusan levelt küldeni. Van valami registry beállítás (vagy group/local policy elem), amin keresztül ezt lehet engedélyezni. De nagyon rég volt már amikor ezzel szmbekerültem (6-7 éve), szóval egy kis googlizásba belekerül, mire megtalálom...

    Esetleg próbáld meg C# (.NET) alkalmazással...

    AE

Új hozzászólás Aktív témák