Algemeen

VB6: sending mail by outlook

F. Zomer — Tue, 18 Jan 2011 12:47:00 GMT

create form
Add button
Make a reference to microsoft scripting runtime

Public Function outlookMail(ByVal emailOntvanger As String, ByVal subject As String, ByVal body As String, ByVal bijlage As String) As Boolean

' extra:
' microsoft scripting runtime
' click yes (free software)

On Error GoTo errMsg

Dim ToAddress
Dim MessageSubject
Dim MessageBody
Dim MessageAttachment

Dim ol, ns, newMail

ToAddress = emailOntvanger
MessageSubject = subject
MessageBody = body

Set ol = CreateObject("Outlook.Application")
Set ns = ol.getNamespace("MAPI")
ns.logon "", "", True, False
Set newMail = ol.CreateItem(olMailItem)
newMail.subject = MessageSubject
newMail.body = MessageBody & vbCrLf

newMail.Attachments.Add (bijlage)

' validate the recipient, just in case...
Set myRecipient = ns.CreateRecipient(ToAddress)
myRecipient.Resolve
If Not myRecipient.Resolved Then
MsgBox "unknown recipient"
Else
newMail.Recipients.Add (myRecipient)
newMail.Send
End If

Set ol = Nothing

outlookMail = True

Exit Function
errMsg:

outlookMail = False

End Function

VB6: sending mail by outlook (express)

F. Zomer — Tue, 18 Jan 2011 12:42:00 GMT

'menu: project -> components
'add microsoft MAPI control

'add to the form
'1. MAPISession1
'2. MAPIMessages1
'3. command1 = button

Private Sub Command1_Click()

Call outlookExpressMail("f.zomer@xxx.com", "Onderwerp", "body text", "")

End Sub

Public Sub outlookExpressMail(ByVal RecipAddress As String, ByVal subject As String, ByVal emailBody As String, ByVal attach As String)

Dim s1 As String
Dim b1 As Boolean
Dim filename As String
filename = attach ' filename path

b1 = False
MAPISession1.SignOn
MAPISession1.DownLoadMail = False
If filename <> "" Then
b1 = True
End If
With MAPIMessages1
            .SessionID = MAPISession1.SessionID
            .Compose
            .RecipAddress = RecipAddress        ' email address
            .AddressResolveUI = True
            .ResolveName
            .MsgSubject = subject               ' subject
             If b1 = True Then
            .AttachmentPathName = filename
             End If

            .MsgNoteText = emailBody            ' email body text
            .Send False
End With
MAPISession1.SignOff
'MAPISession1 = Nothing
'MAPIMessages1 = Nothing
End Sub

The weather forecast

F. Zomer — Tue, 04 May 2010 08:45:00 GMT

windows xp: Windows XP forces double key strokes for single and double quotes

F. Zomer — Thu, 08 Oct 2009 10:55:00 GMT

1. Go to your keyboard settings in control pannel under [regional and language options] 2. select tab Languages 3. click on the Details... button 4. add: English (United States) keyboard - US 5. remove the other settings to make point 4 your default (bolt). This worked for me fine to get a singel quote in microsoft SQL Server Management Studio.

clustermaps

F. Zomer — Tue, 28 Apr 2009 12:42:00 GMT

VBA: write to a ASCII text file from excel (VBA)

F. Zomer — Tue, 03 Feb 2009 16:33:00 GMT

Dim sFile As String
Dim sText As String
Dim iFileNum As Integer

sFile = "C:\test.txt"
sText = "...some text..."

iFileNum = FreeFile
Open sFile For Append As iFileNum
Write #iFileNum, sText
Close #iFileNum

source: h t t p://pubs.logicalexpressions.com/pub0009/LPMArticle.asp?ID=622

landkaart

F. Zomer — Fri, 02 May 2008 16:06:00 GMT

Grotere kaart weergeven

'bug' in microsoft word

F. Zomer — Sun, 31 Dec 2006 15:42:00 GMT

maak een nieuw Word document en plaats daarin het cijfer 1

kopieer alleen de 1 (dus niet het enter teken) en plak deze met ctrl + V zovaak mogelijk achter de een.

Let op: het programma wordt niet behouden en al je data is weg!

Het feit dat er een fout optreedt vind ik niet erg. Dat je je werk kwijt bent wel.

hehe edp electronische declaratie protaal

F. Zomer — Sun, 29 Jan 2006 13:34:00 GMT

nou eindelijk dan toch gelukt om edp in test te laten draaien

-- VECOZO edp electronische declaratie portaal. --

Wil je meer info hierover?

Gewoon eff mailen.
Code was gemakkelijk, certificaat daarentegen in het geheel NIET!

Hoor het wel...

verjaardag

F. Zomer — Sat, 21 Jan 2006 14:03:00 GMT

Zaterdag:
vandaag vieren we de verjaardag van Noelle en tevens een soort open dag voor haar nieuwe kamer.