Excel ask every time for outlook profile

**Henk de Wit** · 10-24-2012, 03:43 AM

Every time i start this code, Outlook is asking for a profile. what do i wrong? if i start outlook first, then there are no questions, but a'm not be able to start everytime outlook first, so this code has to find the profile by itself..

Code:

Please Login or Register  to view this content.

Can somebody help me out??
kindly regards Henk

**JosephP** · 10-24-2012, 06:24 AM

help recommends you do not use logon-use

Please Login or Register  to view this content.

instead

**Henk de Wit** · 10-24-2012, 05:26 PM

hI jp,

Please Login or Register  to view this content.

This seems to work, everything started whit "Dim"removed

Now testing, but THANKS, you helped me a lot!

regards from Holland!
Henk

**JosephP** · 10-25-2012, 02:36 AM

my pleasure. please note that arlu and I have had to add code tags to your posts in accordance with forum rules-please use them in future and don't forget to mark this solved if the solution fixes your problem

**Henk de Wit** · 11-23-2012, 05:17 PM

This works in excel 2010: (tested)

Sub Open_Tab_Als_PDF_Mailen()

Dim OutApp As Object
Dim OutMail As Object
Dim SubjectText As String
Dim MailText As String
Dim newFile As String
Dim Vanmail As String
Dim ToMail As String
Dim CCmail As String

If Dir(Environ("commonprogramfiles") & "\Microsoft Shared\OFFICE" _
& Format(Val(Application.Version), "00") & "\EXP_PDF.DLL") <> "" Then

Vanmail = ""
ToMail = Blad6.Range("B36")
CCmail = Blad6.Range("B35")
newFile = Blad6.Range("B32") & "\" & "Weekstaat-" & Blad6.Range("B4") & "-Week " & Blad3.Range("B1") & "-" & Blad6.Range("B1").Text & ".pdf"
On Error Resume Next
ChDir Blad6.Range("B32")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
newFile, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Set OutApp = CreateObject("Outlook.Application")
Set olNs = olApp.GetNamespace("MAPI")
Set mailFolder = olNs.GetDefaultFolder(olFolderInbox)
Set OutMail = OutApp.CreateItem(0)

MailText = "L.S. " & ‘Put your text here

On Error Resume Next
With OutMail
.To = ToMail
.CC = CCmail
.BCC = ""
.SentOnBehalfOfName = Vanmail
.Subject = "Your text”
.Body = MailText
.Attachments.Add newFile
.display 'gebruik Display / Send
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
Else
MsgBox "PDF add-in not installed!"
End If

End Sub

Thanks to everybody helping me to solve the email problemm.... :-)