Hi Ashley,
Try this, It's a bit longwinded but works (in VB5 anyway).
Make sure under references you include "Microsoft MAPI Controls 5.0"
CODE:
----------------------------------------------------------
Private Sub SendMessage()
Dim MAPISession1 As Object
Dim MAPIMessages1 As Object
Set MAPISession1 = CreateObject("MSMAPI.MAPISession")
Set MAPIMessages1 = CreateObject("MSMAPI.MAPIMessages")
MAPISession1.DownLoadMail = False
MAPISession1.SignOn
With MAPIMessages1
.MsgIndex = -1
.RecipDisplayName = "[EMAIL PROTECTED]"
.MsgSubject = "This is the subject line"
.MsgNoteText = "This is text in the body of email message."
.SessionID = MAPISession1.SessionID
.AttachmentPosition = 0
.AttachmentPathName =
"C:\MyFolder\MyDirtyGreatBigLongFileName.jpg"
.AttachmentName = "MyNiceFilename.jpg"
.Send
End With
MAPISession1.SignOff
Set MAPISession1 = Nothing
Set MAPIMessages1 = Nothing
MsgBox "Message sent!", , "Send Message"
End Sub
----------------------------------------------------------
-----Original Message-----
From: Simmonds, Ashley (PTB) [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, 16 October 2002 12:54 PM
To: 'Mapinfo List (E-mail)'
Subject: MI-L send pictures via mail
heya,
my code allows someone to automatically export the current mapper
window to
a JPG file, and then that file is opened in mspaint.
does anyone know how i can then have that file sent in a mail message?
currently... ( the last line is what i'm having trouble with, it seems
i can
only send an Access object)
sub DoStuff
Dim WindowIDee As Long
Dim AnnoyLevel As Integer
Dim PicName As String
'this is for iteration through the pictures already in the
directory
to create a new number
AnnoyLevel = 1
Do While PicName = ""
If Dir(CurrentProject.Path & "\MapInfo\" & Uzer &
Right("0" &
AnnoyLevel, 2) & ".jpg") = "" Then
PicName = CurrentProject.Path & "\MapInfo\" & Uzer &
Right("0" & AnnoyLevel, 2) & ".jpg"
Else
AnnoyLevel = AnnoyLevel + 1
End If
Loop
'gets the mapper window
WindowIDee = MIobj.Eval("windowinfo(1,13)")
'saves the window as a JPG file
MIobj.Do "Save window " & WindowIDee & " as " & Chr$(34) &
PicName &
Chr$(34) & " Type " & Chr$(34) & "jpeg" & Chr$(34)
'opens PAINT with the newly created picture
call Shell("mspaint.EXE " & Chr$(34) & PicName & Chr$(34),
vbMaximizedFocus)
'makes a dialog message box to give time to edit picture
MsgBox "edit the picture as desired" & vbCrLf & vbCrLf & "ONLY
CLOSE
THIS MESSAGE WHEN YOU HAVE COMPLETED YOUR EDITING", vbCritical, "do
stuff to
stops"
'this is the bit where i want to send an email which
automatically
includes the picture file
DoCmd.SendObject , PicName, acFormatHTML, "Ashley simmonds", ,
,
"Bus Stop Alterations", , True
end sub
gramercy
ash
---------------------------------------------------------------------
List hosting provided by Directions Magazine | www.directionsmag.com |
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Message number: 3599
