[AccessD] Email attachment problem

Are you sure the file has been completely written at the point where you
try the attachment?
 
Charlotte Foust

	-----Original Message-----
	From: Mike and Doris Manning [mailto:mikedorism at ntelos.net] 
	Sent: Wednesday, April 02, 2003 9:45 AM
	To: accessd at databaseadvisors.com
	Subject: RE: [AccessD] Email attachment problem
	
	
	Sure... I've been trying DoEvents but that hasn't worked.  I've
checked the file size after the ".Attachments.Add" line and it shows 64B
when the file size is really 23KB.
	
	Public Function SendSafeEmail(SendTo As String, SendSubj As
String, _
	                     SendBody As String, SendEdit As Boolean, _
	                     Optional SendCC As String, _
	                     Optional FilePath As String, _
	                     Optional strAttach As String)
	                                         
	    On Error GoTo ErrorHandler
	    
	    Dim oMail As Object
	    Dim oSpace As Object
	    Dim oFoldr As Object
	    Dim oItem As Object
	    Dim oSafe As Object
	    Dim oRecip As Object
	    Dim oDeliver As Object
	    Dim bolOpen As Boolean
	    Dim aryRecip() As String
	    Dim intRecip As Integer
	    Dim aryFileList() As String
	    Dim intFilelist As Integer
	    Dim strFileName As String
	    Dim lcv As Integer
	    Dim strSMTP As String
	    
	    bolOpen = IsOutlookOpen
	    
	    Set oMail = CreateObject("Outlook.Application")
	    Set oSpace = oMail.GetNamespace("MAPI")
	    Set oFoldr = oSpace.GetDefaultFolder(olFolderOutbox)
	    Set oItem = oMail.CreateItem(olMailItem)
	    Set oSafe = CreateObject("Redemption.SafeMailItem")
	    oSafe.Item = oItem
	 
	    With oSafe
	        'Add the TO names
	        If SendTo <> vbNullString Then
	            If InStr(1, SendTo, ";", vbTextCompare) > 0 Then
	                If Right(SendTo, 1) <> ";" Then SendTo = SendTo
& ";"
	                aryRecip = Split(SendTo, ";")
	                intRecip = UBound(aryRecip) - 1
	                For lcv = 0 To intRecip
	                    .Recipients.Add aryRecip(lcv)
	                Next lcv
	                Erase aryRecip
	                .Recipients.ResolveAll
	            Else
	                .Recipients.Add SendTo
	                .Recipients.ResolveAll
	            End If
	        End If
	        'Add the CC names
	        If SendCC <> vbNullString Then
	            If InStr(1, SendCC, ";", vbTextCompare) > 0 Then
	                If Right(SendTo, 1) <> ";" Then SendTo = SendTo
& ";"
	                aryRecip = Split(SendCC, ";")
	                intRecip = UBound(aryRecip) - 1
	                For lcv = 0 To intRecip
	                    .Recipients.Add aryRecip(lcv)
	                Next lcv
	                .Recipients.ResolveAll
	            Else
	                .Recipients.Add SendCC
	                .Recipients.ResolveAll
	            End If
	        End If
	        'Add the rest of the information
	        .Subject = SendSubj
	        .Body = SendBody
	        
	        'Add Attachments
	        If strAttach <> vbNullString Then
	            If InStr(1, strAttach, ";", vbTextCompare) > 0 Then
	                If Right(strAttach, 1) <> ";" Then
	                    strAttach = strAttach & ";"
	                End If
	                aryFileList = Split(strAttach, ";")
	                intFilelist = UBound(aryFileList) - 1
	                For lcv = 0 To intFilelist
	                    strFileName = FilePath & aryFileList(lcv)
	                    .Attachments.Add strFileName
	                    DoEvents
	                Next lcv
	            End If
	        End If
	        DoEvents
	        
	        If SendEdit = True Then
	            DoEvents
	            .Save
	            DoEvents
	            .Display
	            Exit Function
	        Else
	            .Send
	        End If
	    End With
	    
	    Set oDeliver = CreateObject("Redemption.MAPIUtils")
	    oDeliver.DeliverNow
	    oDeliver.Cleanup
	    
	    If bolOpen = False Then
	        oMail.Quit
	    End If
	    
	    Set oDeliver = Nothing
	    Set oSafe = Nothing
	    Set oItem = Nothing
	    Set oFoldr = Nothing
	    Set oSpace = Nothing
	    Set oMail = Nothing
	    
	    Exit Function
	    
	ErrorHandler:
	    Call HandleErrors(Err, strMyName, "SendSafeEmail")
	End Function
	 
	 

		-----Original Message-----
		From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Ruff
		Sent: Wednesday, April 02, 2003 12:35 PM
		To: accessd at databaseadvisors.com
		Subject: RE: [AccessD] Email attachment problem
		
		
		Can we see your email code?
		 
		 

		John V. Ruff - The Eternal Optimist :-) 
		Always Looking For Contract Opportunities 

		"Commit to the Lord whatever you do, 
		        and your plans will succeed." Proverbs 16:3 

			-----Original Message-----
			From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Mike and
Doris Manning
			Sent: Wednesday, April 02, 2003 9:25 AM
			To: accessd at databaseadvisors.com
			Subject: [AccessD] Email attachment problem
			
			
			We have been working on building our own
internal PDF Document Solution using PDF995.  We can get the PDF files
to create perfectly exactly where we want them to.  The problem we now
have is with our email code we built using Redemption.
			 
			The PDF original is 23KB but only 64B of that is
making it to the email as an attachment.
			 
			Does anybody have any thoughts on how we could
slow the code down so that the entire attachment would be added?  I'm
trying to avoid using a message box, if at all possible.
			 
			Doris Manning
			Database Administrator
			Hargrove Inc.
			www.hargroveinc.com

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://databaseadvisors.com/pipermail/accessd/attachments/20030402/8fdff5f6/attachment-0001.html>