Verzenden in Outlook Expres !

[danny147]

Beste

Helpt onderstaande code ook voor Outlook Expres ?
Of is hier een andere code voor nodig ?

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

Groetjes Danny. :thumb:

 

[trucker10]

Danny147 heb je al op de site van Ron gekeken ? http://www.rondebruin.nl/sendmail.htm

 

[danny147]

Beste Trucker10

Welke code moet ik juist gebruiken ?
Heb de site van Ron bekeken en wat moet er aangepast worden aan mijn code.

Groetjes Danny.

 

[trucker10]

Beste Danny voor outlook express volstaat de sendmail ( workbook ) methode .

Je kan ook eens een kijkje nemen op de pagina van SNB .

 

[danny147]

Beste Trucker10

In mijn Excelbestandje staat volgende stukje code:

 TempFilePath = Environ$("temp") & "\"
    TempFileName = "'t Sluissse VOETBALSPEL " & Format(Now, "dd-mmm-yy")
    With Destwb
        .SaveAs TempFilePath & TempFileName & FileExtStr, _
                FileFormat:=FileFormatNum
        On Error Resume Next
[COLOR="red"][B]    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
        With OutMail[/B][/COLOR]
            .To = strto
            .CC = ""
            .BCC = ""
            .Subject = "'t Sluisse VOETBALSPEL " & Format(Now, "yyyy")
            .Body = "Wijzig indien nodig deze boodschap"
            .Attachments.Add (TempFilePath & TempFileName & FileExtStr)
            '.Send
            .Display
        End With
        On Error GoTo 0
        .Close SaveChanges:=False
    End With

Mag het rode gedeelte gewijzigd worden door:

TempFilePath = Environ$("temp") & "\"
    TempFileName = "Copy of " & wb1.Name & " " & Format(Now, "dd-mmm-yy h-mm-ss")
    FileExtStr = "." & LCase(Right(wb1.Name, Len(wb1.Name) - InStrRev(wb1.Name, ".", , 1)))

    wb1.SaveCopyAs TempFilePath & TempFileName & FileExtStr
    Set wb2 = Workbooks.Open(TempFilePath & TempFileName & FileExtStr)

    With wb2
        On Error Resume Next
        For I = 1 To 3
            [COLOR="red"][B].SendMail "", _[/B][/COLOR]                      "This is the Subject line"
            If Err.Number = 0 Then Exit For
        Next I
        On Error GoTo 0
        .Close SaveChanges:=False
    End With

Groetjes Danny. :thumb:

 

[trucker10]

Danny , ik kan het niet testen daar ik geen outlook express of windows mail meer heb .
Maar dit

.To = strto
            .CC = ""
            .BCC = ""
            .Subject = "'t Sluisse VOETBALSPEL " & Format(Now, "yyyy")
            .Body = "Wijzig indien nodig deze boodschap"
            .Attachments.Add (TempFilePath & TempFileName & FileExtStr)
            '.Send
            .Display
        End With

zijn allemaal eigenschappen die toebehoren aan MS Office ( outlook )

Voor het gepersonaliseerd verzenden via outlook express deze code eens doornemen .

 

[danny147]

Beste Trucker10

We zijn er ondertussen aan uitgeraakt.

Mijn vriend gaat Office 2010 aanschaffen met Outlook erin.
Zijn vorige versie was de studentenversie Office 2007 waar geen Outlook in zit.

Groetjes Danny. :thumb:

 

[trucker10]

Als je vriend nog kinderen heeft die school lopen dan kan je eens kijken bij edupartner voor een zachte prijs +/- € 65 ( zonder te kijken op hun site )